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Sharpen Your AIM 


A collection of four programs are presented which 
enhance the capabilities of the basic AIM 65. These pro- 
grams improve hex loading, clear memory, move 
memory and slow down the display. 


Recently several Rockwel! AIM-65 
microcomputer systems were purchas- 
ed for use in teaching courses in 
microprocessors and microcomputers 
at the campus of the Pennsylvania State 
University at which | teach. These were 
intended to supplement the KIM-1 
systems which have been used for that 
purpose for the past three years.The 
press of other activities has prevented 
more than intermittent exposure to the 
full capabilities of the AIM-65; however, 
some basic impressions and evalua- 
tions are possible. 


Overall, the impression has been 
highly favorable. First, due to the 
similarity with the KIM-1, the AIM has 
been easy to learn. Even students with 
virtually no exposure to any type of 
microcomputer have had Ilttle difficulty 
in learning to use the system effectively. 
in this regard, the documentation provid- 
ed with the AIM-65 is excellent. The 
AlM-65 Microcomputer User’s Gulde is 
easy to follow and has a sizeable 
number of examples to clarify concepts 
stated in the material related to a por- 
tlon of the system or its operation. Iden- 
tification of many of the most useful 
subroutines and their characteristics 
has proved to be a special blessing. The 
clock program used as an application 
example at the end of the manual in- 
volves virtually every mode of operation. 
It" provides an excellent base for 
understanding the system and in addi- 
tlon serves as a firm foundation for a 
flexible data sampling and logging 
system. Although a few errors exist in 
the User’s Manual, most are of minor 
consequence. 


Second, the extensive monitor pro- 
gram has a great many features not 
generally found in a system of this price 
class. These features make it possible to 
program the AIM more rapidly and with 
fewer errors than is possible for an 
essentially identical program using the 
KIM-1.The features which come to mind 
most readily are the mnemonic entry 
capability, the disassemblier, and the 
text editor. The printer with its hard copy 
put the topping on the physical at- 
tributes of the system. Less visibie, but 
equally as convenient, are the cassette 
interface with its much higher speed and 
flexibility when compared with the 
KIM-1. The ability to use the KIM format 
permits the application of many KIM pro- 
grams to the AIM. Finally, the 20 
character display with the abitity to use 
alphanumerics expands the capabilities 
of the AIM-65. 


No system is completely without its 
shortcomings and the AIM Is no excep- 
tion. Fortunately, the shortcomings are 
few and most are easily corrected. One 
of the problems arises from the fact that 
in the memory modify mode,(/), the pro- 
gram is returned to the system monitor 
after four entries. While ali that is 
necessary to return to the modify mode 
is to agaln press (/), often when entering 
a program from a hex dump format or 
entering hex values into a table or enter- 
Ing a short ASCII message statement, it 
is easy to forget to re-enter (/). The short 
program shown below, HEX LOAD, uses 
the same format as the M followed by () 
process but automatically remains in 
the modify mode until terminated by an 
ESC. There is a printout of the entered 
characters and the address of the 
lowest byte just as in the normal opera- 
tion. The only difference is that It is no 
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longer necessary to enter (/) after each 
four entries. To use HEX LOAD, begin ex- 
ecution at 0600 (or the beginning ad- 
dress selected If In a different location) 
by the usual entries, ‘(*)=0600", 
RETURN,“G”’, RETURN. The display will 
show ‘= ”. Enter the address at which 
hex entries are to start, RETURN, and 
the starting address will be displayed 
with the prompt ‘a’. Make the desired 
hex entries as a continuous string, then 
terminate with ESC. 


HEX LOAD 
(kK) #=0600 

20 
0600 20 JSR EAAE 
0603 20 JSR E83E 
0606 AO LDY #00 
0608 20 JSR EASD 
0602 90 BCC 0613 
060D C9 CEP #20 
O60F DO BNE 0623 
0611 FO BEQ 0618 
0613 20 JSR EB78 
0616 FO BEQ 0613 
0618 4C IMP £B33 
061B 20 JSR =83E 
O61= C8 INY 

O61F CO CPY #04 
0621 DO ENE 0608 
0623 20 JSR E2CD 
0626 20 JSR EA13 
0629 20 JSR E2DB 
062C 20 JSR 583E 
062F DO BNE 0606 


SLOW DIS 
(K) #0200 
/38 


0200 AJ. LDA #4B 

0202 20 JSR E97A 
0205 A9 LDA #2A 

0207 20 JSR 
O20A 20 JSR. 
020D BO 
020F 20 
0212 20 
0215 

0218 

O021B 
O21E 

0221 

0222 

0224 

0227 

0229 

022C 

022F 
0232 
0235 
0237 
023A 
023D 4° 
0240 
0242 
O244 
0246 
0249 
O24B 
O24E 
0251 
0253 
0256 
0258 
0253 
025D 
025F 


ZERO PAGE LOCATIONS USED: 


Timing Loops 


Length (Used by monitor 
ROM) 


COAC 
OOEA 


The second difficulty is an an- 
noyance with the speed at which 
disassembly occurs when the printer Is 
not In operation. This mode of operation 


is sometimes desirable to conserve 
paper while debugging or while checking 
for a particular part of a program. The: 


‘program left, SLOW DIS, introduces 


about a 1 second delay between steps 
during disassembly without. the printer. 
Location 0241 can be modified to 
change the speed as desired. Execute 
the program in the normal way using 
(*) = 0200, RETURN, “G”, RETURN. The 
display will Indicate “K* = ”. Enter the 
starting address of the material to be 
disassembled and the number of steps 
as in normal operation. If an indefinite 
number of steps was selected by 
“SPACE”, then the program must be ter- 
minated hy ESC. 

One of the major advantages of the 
AIM-65 over the KIM-1 and other similar 
systems using 7-segment read-out 
displays (limited to six digits), is the 
relative ease of using meaningfully 
prompted programs which eliminate the 
need to record or remember the proper 
addresses into which data must be 
entered to initiate the program. With 
prompting, the required information can 
be asked for, inserted, and stored in ap- 
propriate locations under program con- 
trol. Two utility programs, CLEAR and 
MOVER, included below, are of the 
prompted type. MOVER is a data 
transfer program capable of moving any 
amount of data either forward or 
backward to a designated starting ad- 
dress. Execution of the progam results 
in a prompting message of “OLD 
FROM =" to elicit the entry of the star- 
ting address of the data to be moved. 
After the address has been entered and 
RETURN activated, ‘TO=” calls for the 
ending address of the data: to be moved. 
When RETURN is again used, theprompt 
“NEW FROM =” appears to bring about 
entry. of the starting address at which 
the moved data is to start. This time 
RETURN causes exécution of the move 
process, completion of which ts In- 
dicated by a cleared display except for 
the normal “ ” at the left side of the 
display. Similarly, CLEAR uses promp- 
ting messages, “CLR FROM=” and 
“TO=”" to obtain the limiting addresses 
of the area into which zeros or any other 
designated character may be entered. 
The area can be of any size. 

A general breakdown of the 
features of these two programs can be 
used to show the various sections and 
thelr functions. In CLEAR, the program 
from 0300 through 0314 provides the pro- 
mpt message generation; 0315 through 
0330 contains the address input and 
storage functions; 0331 through 033D 
contains the calculation of the high. and 
iow order bytes of the length of the area 
involved; and the remainder of the pro- 
gram performs the actual data storage 
procedure. Location o34F{ may be 
modified to any value with which it Is 
desired to load a selected memory area. 
Locations 035F - 0361 contain the “CLR” 
message. 


0300 


0305 
0308 
0309 
030B 
0302 
C308 
0319 
0312 
0315 
0318 
031B 
031D 
0320 
0322 
0325 
0327 
032A 


032C | 


032F 
0331 


Nop Nad Sad ad Wa 
t — 


(~) *=0300 
/46 


20 JSR £Al13 
0303 AO LdDY #00 


O35F, 


AND #7F 


JSR 
INY 
PLA 
BPL 
JSR 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
BCS 


LDA © 


OTA 


F.7 e 


STA 
$2¢ 
LIA 
SEC 
STA 
Lua 
SBC 
BEd 
TAX 


LDA i 


TAY 


STA. 


INY 
BNE 
INC 
Dex 


ENS 


= 
aud 


INC © 


Lua 
LDY 
STA 
INY 
CPY 
ENS 


JSR 


JP 
(i) =035F 43:4€ 52 


E97A 


0305 
E832 
E7A3 
AKC 


200 


Y 


(09),¥ 


O04 

0352 
ZA13 
TIAL 


0200 
0203 
0205 
0208 
020B 
O20E 
0211 
0213 
0216 
0219 
O21B 
O21E 
0220 
0223 
0225 
0228 
022A 
022C 
022F 
0232 
0235 
0238 
023A 
023D 
023F 
0240 
0242 


o244 


0246 
0248 
O24A 
O2kC 
o24D 
O24F 
0251 
0253 
0255 
0257 
0259 
025A 
025C 
025E 
0260 
0262 
0264 
0266 
0268 
026A 
026C 


O26E | 


JSR 
LDY 
JSR 
JSR 
JSR 
JSR 
BCS 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
OTA 
LDA 
STA 
LDY 
JSR 
JSR 
JSR 
LDA. 


STA 


LDA 
STA 
S2C 
LDA 
SE 
STA 
LUA 
SBC 
STA 
CLC 
LDA 
ADC 
STA 
LDA 
Ave 
STA 
SEC 
LDA 


FA13 
#00 
02B8 
E7A3 
F910 
E7A7 
0208 
EA13 
AYIA 
AO 
A41B 
Al 
ALic 
A2 
ALD 


MOVER 


(K) #=0200 


/96 


0270 
0272 
0274 
0276 
0278 
027A 
027B 
027D 
027F 
0281 
0283 
0284 
0286 
0288 
028A 
028C 
028D 
O28F 
0291 
0294 
0297 
0299 
029B 
029D 
029F 
O2Al 
O2A2 
O2A4 
02A6 
0248 
0249 
O2A5 
O2AD 
O2AF 
02E1 
0252 
O2B4 
O2B6 
0288 
O2BB 
O2RC 
O2BE 
02C1 


0202. 


02C3 
0205 


E6 
Aé 
FO 
Bl 
91 
88 
CO 


INC 
LDX 
BEQ 
LDA 
STA 
DEY 
CPY 
ENE 
DEC 
DEC 
DEX 
ENE 
INC 
LDA 
STA 
Dey 
DEC 
ENé 
JSR 
JMP 


LDY 


LDX 
BEQ 
LDA 
STA 
INY 
Eni 
INC 
INC 
JER 


~~ e 
a, os 


INC 


Ll LDA 


STA 
INY 
Cry 
ENE 
BEQ 
LDA 
PHA 
AND 
JSR 
INY 
PLA 
EPL 
RTS 


(13) =02C6 4F 
(°) O2CA :43 


(A2),¥ 


(A0),Y 
(AH) ,Y 


0299 
Al 
A5 


ZERO PAGE LOCATIONS USED: 
CLEAR 


0000 Start ADDR Low 

0001 Start ADDR High 
0002 Ending ADDR Low 
0003. Ending ADDR High 
0004 Length Low 

MOVER 

OOAO OLD Start ADDR Low 
OOAl OLD Start ADDR High 
OOA2 OLD Ending ADDR Low 
00A3 OLD Ending ADDR High 
0O0OAS NEW Start ADDR Low 
O0OA5 NEW Start ADDR High 
Q0OA6 Move Distance Low 
00A7 Move Distance High 
OOA8 PGM Length Low 

OOA9 PGM Length High 
OOAA NEW Ending ADDR Low 
OOAB NEW Ending ADDR High 


A similar examination of MOVER 
will show that the segment from 0200 
through 023E generates the prompting 
messages by way of a subroutine at 
02B8 - 02C5, obtains the requested ad- 
dresses and stores them. From 023F 
through 0266 Is found the calculation 
procedures for the length.of the data to 
be moved, determination of the new en- 
ding address, and decision as to 
whether movement is. forward or 
backward. Movement upward In address 
by starting at the end and working back 
to the start is contained in 0268 through 
0294, while movement downward In ad- 
dress is handted from 0297 through 
02B7. The “OLD” and “NEW” messages 
are contained in 02C6 - 02CC. 

These programs have been found 
very useful in assisting an already 
powerful system to be even more 
responsive to the desires of the pro- 
grammer. Other programs which would 
be very helpful would be the ability to in- 
sert an instruction Into the middle of a 
program with automatic movement of 
the remainder to make room, as is done 
in the text editor and some assemblers. 
Related would also be a deletion pro- 
cedure with automatic closure. Not. 
enough time has been avaliable to ac- 
complish these programs. Perhaps 
later... 

Receipt of the 8K basic ROM’s for 
the AIM-65 has finally occurred after a 
lengthy walt. Not enough opportunity 
has arisen to delve into that aspect of 
the AIM very deeply, as yet. A brief ex- 
posure has made a very favorabie im- 
pression. The addition of the BASIC 
makes the AIM-65 Into exactly what its 
name implies; a self-contained Advanc- 
ed Interactive Microcomputer. 


AIM 6522 Based Frequency Counter 


The AIM 65 obviously is going to find its way into the 
electronics laboratory. Here it is used as a frequency 


counter. 


The program listed performs as a six- 
digit frequency counter. It will count at 
least as fast as 450 kHz, perhaps faster. 
A simple interface circuit is shown in 
Figure 1. Although the signal to be 
measured could be connected directly to 
the PB6 pulse counting pin of the 6522, | 
prefer not to connect strange and 
unknown signals directly to the com- 
puter. In any case, the signal pulses to 
be counted should really be shaped into 
the form of a square wave before they ap- 
pear at PBS. 


The counter uses timer T1 in a free-run- 
ning mode with 50,000 clock cycles be- 
tween settings of its interrupt flag. The 
timer T1 is not allowed to interrupt the 
6502, rather its interrupt capability is 
disabled and the flag is “watched” by 
reading the interrupt flag register, IFR. 
With $14 = 20,, intervals of 50,000 clock 
cycles apiece, one gets a total interval of 
one second. $14 is located in $0000. The 
T1 tlmer is loaded with instructions 
starting at $0230. Note that the number |! 
used is less than 50,000 because my AIM 
65 crystal is slow by 244 parts in one 
million cycles. You may wish to make ad- 
justments with this number also, de- 
pending on your system’s clock frequen- 


cy. 


The frequency counter works as follows. 
Timer T2 in its pulse counting mode Is in- 
itially loaded with $F FFF = 65535. Once 
it is loaded, timer T1 is started and PBO 
is brought to logic O to allow the NAND 
gate to let pulses through. At the end of 
the timing interval, described in the 
preceding paragraph, the gate is closed, 
the timer T2 is read, the result is sub- 
tracted from $FFFF, this number is con- 
verted from HEX to BCD, and it is added 
to the display locations using the ADC 
instruction in the decimal mode. If, at 
any time the T2 timer counts through 
zero, an interrupt request (IRQ) occurs 
and the display registers are in- 
cremented by 65536 = $FFFF + 1, T2is 
reloaded with $FFFF, and counting con- 
tinues. At the end of one second, the 
total number of counts Is displayed by 
the display subroutine, which, by the 
way, is identical to the 24-hour clock 
display routine in the February 1979 


issue of MICRO. It is a bit unfortunate 
that the 6522 designers did not allow the 
T2 timer to continue producing inter- 
rupts without reloading It, because in the 
time interval between the interrupt re- 
quest and the reloading of the T2 timer 
(starting at instruction $0296 In the inter- 
rupt routine), a few counts or pulses on 
PB6 might be missed. This would only be 
of concern at large counting rates. 


The HEX to BCD conversion routine 
Starts at address $025D and ends at ad- 
dress $028E. The t6-bit number repre- 
senting the number of counts in timer T2 
Is stored in locations $0010 and $0011. If 
$PQRS represents this number, then 

$PQRS = (P.4096,.) + (Q.256,.) + 

(R. 16,0.) + (S. 1). 

If the calculation on the right-hand side 
of the above equation is done in the 
decimal mode, the $PQRS will be con- 
verted to BCD. In other words, 4096 Is ad- 
ded to itself P times, 256 is added to 
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Itself Q times, 16 is added to itself R 
times, and 1 is added to itself S times, all 
in the decimal mode. These results are 
all added together, giving a BCD number. 
Better routines exist, | am sure, but this 
one isn't too slow. Note that P,Q,R, and 
S are each one nibble of the 16-bit 
number obtained from timer T2. (Has 
anyone yet suggested calling 16-bit 
numbers ‘gobbles,’ giving nibbles, 
bytes, and gobbles?) The table starting a 
$0300 must be loaded into memory for 
the HEX to BCD conversion to work. 


The symbol table given may help you if 
you wish to modify the program or if you 
want to change It to run on a microcom- 
puter other than the AIM 65. Also, | 
would be interested in knowing an exact 
upper limit for the frequency at which it 
will operate and in any further im- 
provements to the rate at which it will 
count. Currently | do not have enough 
time to do this experimentation myself. 


H 


Table | 


ADDRESS TABLE FOR THE AIM 65 FREQUENCY COUNTER 


$A000 = PBD (ORB) 
$A002 = PBDD (DDRB) 
$A004 = T1L-L (Read) 
$A005 = T1L-H 

$A006 = T1L-L (Write) 
$A008 = T2L-L 


$A009 = T2C-H 
$A00B = ACR 
$A00D = IFR 
$A0CE = JER 
$A404 = IROL 
$A405 = IRQH 


$0000 = Count-to-twenty‘register 

$0001 = Display register, low-order byte 

$0002 = Display register, middle-order byte 

$0003 = Display register, high-order byte 

$0010 = PQ = Low-order byte of count from timer T2 
$0011 = RS = High-order byte of count from timer T2 
$0340 = Starting address of display subroutine 
$0295 = Starting address of IRQ routine 


10 


B20G AS LDA #95 O27A 85 STA Bz 8248 AS LDA 81 
G22 8b STA Ada4 G270 88 DEY Bz42 85 STA O4 
g285 AS LDA #02 8270 DB BNE 8266 8244 AS LDA 92 
AeA? Bb STA AdBS B27F CA DEX 9346 $5 STA 25 
820A AP LDA #98 B20 20 EMI O2SE 8248 AS LDA 82 
g20C 8D STA ABBE G22 AB LDY #64 B24A 85 STA G6 
B20F AS LDA #04 8284 46 LSR 11 B24C A2 LOX #13 
S214-8b STA ABAG p206 66 ROR 18 O34E 8A TAR 

a214 8G STA ABBZ 6288 88 DEY O24F 49 PHA 

B217 AS LDA #68 B289 DO BNE 284 G25G AG LDY #04 
8219 8b STA ABBE B28E 4C IMP B25F B252 AS LDA a4 
g21C AS LDA #14 BZSE DS CLD B254 29 AND #OF 
B21E 85 STR aa Q28F 28 ISR 8246 G256 19 CLC 

g228 AS LDA #FF g292 40 IMP a2ic Bi57 69 ADC #28 
8222 Sf STA AGBE g295 42 PHA 8259 @9 DORA #29 
g225 8b STA ABBAS 8296 A9 LDA #FF Q25B 28 JSR EF7E 
8228 AI LDA #08 g298 8b STA ABBS BE5E 46 LSR #6 
B22A 85 STA a1 B29B FS SED @368 66 ROR 85 
B22C 85 STA 82 B29C 18 CLC @i62 66 ROR G4 
#22E 85 STA 82 #29 AS LOA a4 9264 88 DEY 

8236 AS LDA #42 B29F 69 ADC #26 8365 Da BNE 635E 
Bz3z Sb STA ABBE B2Ai 85 STA 81 Q367 68 PLA 

8235 A9 LDA #C3 BeAZ AS LDA 82 Q268 AA TAX 

8227 ef STA Ages B2AS 69 ADC #55 8369 CA DEX 

B23A CE DEC Agee Beh? 85 STA 82 B36A EB CPX #BE 
8230 AG LDA ABBd B2AS AS LDA 82 B36C Ba BCS B34E 
B24a CE DEC a8 @2AB 69 ADC #06 B36E 68 RTS 

B242 20 BIT AGOD B2AD 85 STA @2 

g245 59 BYC 242 B2AF DS CLD 


$247 AS LDA oo A2ER 68 PLA CM>=8208 96 S56 16 ot 
$249 DG BNE B22 @2B4 49 RTI £ > 8264 40 82 BG BB 


W24E EE I Store 
at ‘ one nee Interface Circuit for the AIM 65 
Ao4P a9 ma #PF PBO Frequency Counter Using the 6522 VIA 


B25D AZ LDX #02 7404 
$266 18 Lc 
B267 FB SED PB6 


82 
e274 7D ADC 2304, 5 SIGNAL 7400 


Figure 7 
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Symbol Table Sorter/Printer 
for the AIM Assembler 


Some information about the AIM Assembler, a program 
to print the Symbol Table - sorted alphabetically or 
numerically, and some other useful stuff. 


When the first Rockwell AIM showed 
up at the local computer store, mouths 
started watering. For a KIM user, to see 
an AIM is to want one. It is hard to resist 
that fine keyboard and display, the 
clever little printer, and sockets for 
Monitor, RAM, Assembler, and BASIC; or 
for 2716 EPROM with your own stuff on 
it. I've been running KIM with a Memory 
Ptus board (8K RAM, 8K EPROM, 2716 
programmer, and a 6522 VIA), mounted 
with power supply and I/O board in an at- 
tache case for portable use. This rig 
hasaccumulated a half-dozen 2716’s full 
of KIM software, and | intend to continue 


working on KIM applications. Since AiM 


provides the same VIA, | bought one with 
the justification that it would help me 
develop more and better KIM software. lf 
you write it and debug it on AIM, and 
move it over to KIM, you’re done, right? 


Well, yes. After a bit of learning about 
conversion from one memory map to 
another, it really does work that way. 
The mnemonic Insert mode (‘I com- 
mand) is a joy to use. There are no more 
op-code lookups and branch calcula- 
tions and there are fewer typos. And the 
disassembler (‘‘K’? command) lets you 
check your work faster and more ac- 
curately. But for clean, patch-free object 
code, the assembler is the best of all. 
Slx-character variable names! No line- 
number hassle! Six-character labels, 
such as “JMP NEXT,” or “BEQ 
OUTCHR.” And for easy transfer of ob- 
ject code from AIM to KIM, It’s the 
assembler that really does it. It makes 
the writing of relocatable code almost 
automatic. 


The AIM assembler lacks one feature; 
there is no command for printing the 
symbol table after an assembly. So here 
is a little program that fits on Page Zero 
and does Just that. After assembling any 
program, load this one and start at 10. It 
prints two listings of the assembly sym- 
bol table; one sorted alphabetically by 
symbol name, and the other sorted 
numerically by symbol address. The first 
list is helpful when going through the 
assembly listing. The second is even 
more helpful when reading the output of 
the disassembler, it lets you know right 
away that the cryptic “JSR ESBC,” for 
example, is a jump to subroutine 
OUTALL. 


The source (assembly-language) ver- 
sion of the sort/print program is shown 
In Figure 1. The assembly listing, with 
absolute addresses, is shown in Figure 
2. A disassembler listing is not shown; If 
you can’t assemble this one, you don't 
need it! 


The sorting algorithm is plain brute- 
force; It is desigbed to conserve memory 
space, not sorting time. But even so, it 
takes much less time to sort a list than it 
does to print It. The only tricky feature of 
the program is in Its allocation of zero- 
page memory; in loading, It carefully 
avoids wiping out the six bytes that 
remember symbol-table size and loca- 
tion, because it will need them to know 
where to work when you hit “Go.” 


Figure 3 shows, as an example, the 
use of the assembled program on its 
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own symbol table. Notice that you don’t 
have to find and enter the location and 
size of the symbol table; the program 
finds these from the zero-page bytes 
that It conserved while loading. 


One note of caution in case you don’t 
read the following section. When you 
assemble this source program, don't 
direct the object code to memory. Direct 
it to tape. Then load it and start at 10. 


AIM-to-KIM Software Conversion 


The following assumes that you have 
more space in AIM RAM than you will 
need for KIM memory. It works well with 
a 4K AIM, and even better with 8K. 


The idea Is to use AIM for both 
assembly and running of the program 
during the debug phase. In the process 
of editing source, assembling, and runn- 
ing (and re-editing, reassembling, re- 
running, re-editing, etc., etc.), much time 
can be saved by not having to load 
source from tape, dump object to tape, 
and reload object from tape for the next 
run. (If you have disc, this may be less of 
a problem. | wouldn’t know.) So, build 
your source with the editor (the very 
good editor), assembie from memory, 
and direct object to memory —~ to any 
available memory, not necessarily where 
it will go in KIM. It will be easy to move 
later if you follow one rule: don't use fix- 
ed addresses except where really 
necessary. 


Look at Figure 1 again. Observe that 
the only fixed addresses used are those 


of the six zero-page bytes containing 
symbol-table location and size (STLO 
through NSYMHI), the four Monitor 
subroutines needed for printing (CLR 
through CRCK), the start of the scratch- 
pad block { * = $00), and the start of the 
main program (* =$10). All other ad- 
dressing is either relative 
(% = *% +1,% = © +4) or by label (JSR 
SORT, JMP COMPAR, BNE SWAP), with 
absolute addresses and branch offsets 
assigned during assembly. Therefore, 
this whole program could be moved to 
KIM by simply changing the scratchpad 
start to any convenient spot in KIM zero- 
page, changing the program start to any 
appropriate spot in KIM RAM, and re- 
assembling, with object-output to tape 
in KIM format. 


That last phrase, ‘output to tape in 
KIM format,” is where we hit the first 
snag. The AIM User’s Manual says the 
assembler will do this, but the manual is 
wrong. If you try OUT-OBJ = K, the poor 
thing locks up in a trance, and the only 
recovery is RESET. (If you would like an 
explanation from Rockwell on why this 
happens, call Dave Sawtelle, AIM Ap- 
plications, 714-632-0975. This number is 
worth writing down; AIM Applications is 
a very competent and helpful group.) 


So how do you output object to tape in 
KIM format? You have your choice of 
two ways. The simple way is to output 
object to tape in AIM format, load this 
back into AIM, and then DUMP it to tape 
in KIM format. This works fine, but It is 
slow. The faster way, if you have room in 
AIM RAM, is to send object to memory 
and then DUMP in KIM format. Before 
you do either, read on, or you may hit the 
second snag. 


The above sort/print is a bad example 
of KIM-convertible code, for two 
reasons. The first is obvious; consider- 
ing its function, KIM couldn't do 
anything with it. The second illustrates 
some further precautions. 


The AIM editor and assembter use the 
top third (and some of the bottom) of 
Page Zero, and several pieces of Page 
One are used by tape I/O and monitor. 
Furthermore, you can't (yet) trust the 
momory map, in the User’s Manual. 
Rockwell is diligently fixing the 
mistakes and has already issued Revi- 
sion 1, but it is still too new to be totally 
reliable. For example, look at the equate 
list in Fig. 1 again. Notice those zero- 
page addresses for STLO through 
NSYMHI? Does the memory map tell you 
they are used by the assembler? No, it 
doesn’t. STLO, STHI, NSYMLO, and 
NSYMH! are mentioned in the chapter 
on the assembler (Section 5.2). | found 
ENLO and ENHI by accident! 


tn order to assemble to memory and 
run, try to avoid putting either program 
or data on eithef Page Zero or Page One, 


unless you want to discover, by trial and 
error, the undocumented portions of the 
memory map. It’s okay to assign zero- 
page variables, but don’t use the 
assembler to initialize them with data. 
The data may not survive the assembly. 


Now, how about a program destined 
for Page Zero, such as the sorter/printer 
above? The final version (as _ listed 
above) must be assembled with object- 
output to tape, and can then be safely 
loaded and run. But during debug, the 
assemble-to-memory-and-run cycle can 
still be used by moving program and 
data to higher memory. For example, 
just before YTAB, change “* = * +1” 
to “‘* =$200” (to move data to Page 2); 
and before START, change ‘“ * =$10” to 
“‘w =$300" (to move the program to 
Page 3). This changes some addressing 
modes from zero-page to absolute, but 
the assembler takes it in stride. Now 
assemble to memory and run. After It all 
works, move data and program down to 
Page Zero, and assemble to tape. 


What If you need to use Page One? 
The push-down stack at the top of Page 
One !s the same In AIM as in KIM, so 
there is no problem there. (Simply allow 
a bit more room for the deeper-pushing 
AIM monitor.) The AIM memory map 
shows eleven Page One bytes (106-107, 
115-11D) used by tape W/O, and eight 
bytes (168-16F) used by the monitor. The 
tape I/O bytes can be handied Ilke Page 
Zero bytes; i.e., avoid until assembling to 
tape. The eight monitor bytes should 
probably be permanently avoided; load 
them Into KIM by hand after everything 
else is transferred. And as an extra 
precaution, check all of Page One for 
wipeouts before running in KIM. 


Please do not let all these cautions 
scare you off. It really is fast and easy 
after a little practice. Most programs 
grow during debug, and much of the 
above only applies if your program has 
grown to the point where you are 
cramped for memory space. 


Fig. 4 shows how simple it is when 
there is plenty of room. This is a general- 
purpose “move block” program that will 
go anywhere in memory (RAM or ROM), 
and it will move any size block from 
anywhere to anywhere. The assembly 
listing (Fig. 5) shows that it occupies 24 
HEX bytes of memory, and uses six 
bytes of zero-page. Before moving it to 
KIM, change that “ * =$00” to the start 
of the six-byte block you want it to use in 
KIM. Don’t bother to change the 
“ # =$200" starting address; after you 
have it in KIM, you can use the program 
to move itself to wherever you want to 
keep it. | keep two copies on tape, one 
that loads to zero-page and one to the 
top of RAM, pius one more in EPROM 
With another copy in AIM, it can be used 
for general memory transfer in either 
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direction; move blocks to $200-3FF, 
dump to tape, load to $200-3FF in the 
other machine, and move to wherever. 


If all you want is the block-move code, 
Fig. 6 gives a disassembier listing and a 
hex dump. It can be put anywhere, but 
this version needs the botiom six bytes 
or zero-page for “From”, “End”, and 
oa o”. 


Source Listing, 
Sorter{Printer 


it 


mm wi - 

we at ta 
t 

wow 


wre te 
mr 


Tr I oe $e tt + mora nn 


Fur fo FT te 


mim 


; 
s'¥TAB DATA 
, DEY $0008. $46GE 


5 
i MAIN PROGRAM 
3 JUMP OVER 86, 6C 


3; TO $20) 
#2$13 


START 
SORT BY NAME 


JSR SORT 


i: SUBROUTINES 


SORT LDA NSYNLG 
STA CNTLO 

LGA NSYHHI 

STA CHTHI 

SRTi ISE SETADR 
SRT2 LDA YTAHB. & 
STA Ya 

LEA YTABSI: & 

STA ‘TZ 

i JUMP OVER SA-26 
IMF COMPAR 

a= + of 

i COMPARE CHAR. W 

3 CORRESP. CHAR. IN 
; NEXT LINE. 

i IF ACB. WEKT LINE 
i; IF ASB; SAP. 


; IF A=B. NEXT CHAR. 


COMPAR LDY Ya 
LDA “ABDLO)D. # 
LDY 'Y2 

CHP CADLO:. ¥ 
BCC WHLINE 
BNE SWAP 

INC 4 

INC '¥2 

LDA 4 

CMP YLIM 

BHE COMPAR 
SWAP LDA #6 
STR 4 

LDA #8 

STA '¥2 

SWP41 LDY Yt 
LDA ¢ADLO), ¥ 
FHA 

LDY Y2 


LDA ‘CADLO>. ¥ 
LDY ‘v4 
STA <ADLO?. 


BNE SHF4 
NXLINE JSP INCADR 
BNE SRT2 

; VECREMENT 

3; LOGF COUNT 
SEC 

iLoR CHTLO 

SBC #4 

STA CHTLG 

BCS «+4 

DES CNTHI 

LDA CNTHI 

BNE :+4 

LDA CANTLO 

BNE SRTi 
PRINT SGRTED LIST 
ISk SETADR 
Ist GAF 

PRHTL JISE CLR 
LE #4 

PRiA LDA #3245 
ISF QUTALL 
DE'? 

BNE FRLA 

LOY #64 

PRHT2 LDA CADLO?: 7 
JSP QUTALL 
In 

CRY #6 

BNE FRNT2 

LDA ##20 

IS GUTALL 
PRHTS LDA CAGLO?. Y 
JSP UNA 

IN‘ 

CRY #3 

BNE PRAT< 

JSR CACK 

TXA 

BNE FIN 

JSR INCACR 
BNE PANT 

DEX 

BNE PRNTI 

FIN JS& GAP 
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RTS 
SETADR LDA STLO 


STR ADLO 
LOR STHI 
STA ADHI 
RTS 


INCADR CLC 
iGA ADLO 
ADC #8 
STR ADLO 
BCC «+4 
INC ADHI 
LDA ABHI 
CMF ENHI 
BNE INA 
LDA ABLO 
CHP BHLO 


GAF ite #23 
GPi JSF CLR 
LDA ##26 
J5@ GUTALL 
I5F CRCK 
DE x 
BNE GPL 
LAST RTS 
4 
END 
Fig. 2: Assembly Listing, 
Sorter/Printer 


: SPS 
;SORT & PRINT SYMBOL 
; TABLE AFTER 

3 AIM ASSEMBLY 
;EQUATE LIST 

==6608 STLO=$3A 
==G060 STHI=$3B 
==9008 ENLO=$2C 
==00G0 ENHI=$3D 
==9060 NSYNLO=$6C 


==6608 NSYMHI=$0B 


==§6U0 CLR=SEB44 


#=0606 OUTALL=$ES6C is SUBROUTINES FoGS INC ¥2 
AS64 LDA Y¥4 


2=0008 NUMA=SEA4S asoe aOR NSYELO cogs CHP #5 
nyeetan C LGA NS NE SUP: 
==600@ CRCK=SEAZ4 8560 STA CNTLO =e6078 NXLINE 
. A5GB = LDA NSYMHI 26D500 JSR I 
BeGd GG JSR INCADR 
; 20080 e001, STA CNTHI D@B2 BNE SRT2 
¥=$60 seCcaG eh 4 i DECRENENT 
==0980 CNTLO eeoee aero 4g OOP COUNT 
==060 | ! «Tan 5 
08 eet 8507 LDA YTAB. x AS@9 LDA CNTLO 
#29001 CNTHI eee STA tt pet. x 4 peeb Dew 
neODai BS08 LDA ¥TAB+4. x 8500 STA CNTLO 
REEL ; JUMP OVER 3A 3D Ceal DEC CNT 
4 ap i JU 3A- G1 DEC 
=<@062 ADLO 4C3E09 JMP COMPAR 288 
xeaed BA ceed ASO LOA CNTHI 
==G003 ADH! at *+4 
a+ 4-¢ laa COMPARE CHAR. Wd A584 LDA CNTLO 
anal 3 NEXT LINE. " SPRINT SORTED LIS 
s=G0G4 Y4 ahs LIST 
cob0es TF Roe. Sune CME 280608 Ise gePPOR 
eet = ‘ SR GAP 
229005 ve 4 eon oh NEXT CHAR. 2206396 PRPNT4 
nee =<G03E COMPAR 2044EB JSR CLR 
“need Bio2 LOY V4 AOG4  LDY #4 
20006 YLIN BiG2 LDA <ADLOD, ¥ ==909B PRIA 
== G06 Dig? aad ¥2 ASZ8 LDR #$26 
ened big2 CHP CADLOD. ¥ 20BCE9 JSR OUTALL 
#20907 YTAB DOO BNE SWAP DOFS BNE 
vee a geeh ke rar Riese a 
: >" 
eoae 86 BY «s6n0e.$9 ESOS INC ¥2 eGeAS PRNTO” 
6GE ==G04E @AS PRNT2 
60E aeoete ag v4 B1g2 LDA CADLOD. 4 
a C546 CMP YLIN gOECES JSR OUTALL 
SNAIN PROGRAM D@EA BNE COMPAR Doe ERY #e 
; JUMP OVER GB. GC ==0654 SWAP O06 CP Ho 
; 6fTO $489 “ Aon (oR #8 DOF se BNE PRNT? 
==6008 9504 STA Y4 Aeee eg coh as2e 
ax$id AQGe «LDA BS 2@BCE9 JSR GUTALL 
==G040 START g505 STA ¥2 Bioo’ LDA cADLOD, 
:50RT BY NANE ==G05C SUP Breen Tee MUG 
A9G6 LDA 46 Add | LOY 4 oe AW 
9566 STA YLIM BiG2 LDA CADLOD.¥ 2 var 
A2GG LDK 46 43. PHA ceee cre aS 
202400 JSR SORT Ades LDY V2 OOoGER TSB CBCK 
SORT BY ADDRESS Big? LDA <ADLOD.¥ eaEA JOR CPCK 
A903 «LDA #8 Adi4  LDY ¥4 Zepeng Jak TNCADE 
gee thm ig Gy Seb” ae oa 
tac an 4 Pott ips L PRNT1 
oo eace JSR SORT Aa +e Loy Ye 7HEBGO ISR GAP 
ea BRK 9402 STH <ADLOD, ¥ so RTS 
BRK INC 44 ==Q6CC SETADR 
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ASSRA LDA STLO LAST FB GP41 6GED 


8562 STA ADLO | NSYMHI G@GB LAST  @@FB 
ASZB LDA STHI | NSYMLO @@@C GUTALL ESBC 
8503 STA ADHI | NUMA EAE CRCK  EA24 
60 RTS NXLINE 8078 NUMA 8 ER4S 
2 pat oe ees 
==@0DS INCADR : ; 
49 cLe PRNT4 6696  Block--Move Proman 
A5G2 LDA ADLO PRNTZ 8GA5 copy : 
8 oh me Se 
@2 STA ADLO ‘ RIPTES aNY-< 
9002 BCC ¥+4 SORT 8824 i oetoce oY MeMaoY 
E663 INC ADHI SRT1 = 662 ; TG ANYPLACE IN RAM 
Csa> EMP ENHI START 0616 7 | 
2D CMP ENH 
Dee4 BNE INR sty ges TPE eer 
=e 5 li H 
A502 LDA ADLO SWAP 8054 BND OF LOCK IN 
CS3C_ CMP ENLO SHP4 © B@5C ; END", AND FIRS 
S=0EA INAX ¥4 0084 Feuer ton ike 
60 —sRTS ¥2 G85 5 OEE NATION IN 
Lecce tt a re 
A202 LDX #2 jEea le List 
bts CNTLO GeB0 FRO 
A9Z@ «LDA #820 DLO. aGBE mii 
2OBCE9 JSR OUTALL a é FRHI 
2024EA JSR CRCK ADRI  8@03 seed 
CA DEY rs bBe4 ENLO 
DOF2 BNE GP1 We BG0s eens 
==GaFB LAST *LIM = BOGS ENH! 
; NSYMHI G@0B TOLO 
ERRORS= @G0G START 9616 TOHI 
SORT 8624 
Fig. 3: Example Run showing SRT1 © @@2C i MAIN PROGRAM 
Dual Sort SRTZ OG2F #= $208 
Cas STLO BOSA STREET 
CG>¢ STHI = @@3B i; INCREMENT “END” 
a ENLG &83C INC ENLG 
ADHI 688 ENHI G30 BNE 4+4_ 
ADLO a@e2 COMPAR G63E INC ENHI 
CLR EBd4 SWAP 89 54 LDY #0 
CNTHI a@4 SWP1 GSC MOVE 
CNILG. 8880 NXLINE a@78 LDA <FRLOD»? 
COMPAR @@3E PRNTi 8696 STA <TOLO?.¥ 
cRCK E24 PRIA 0638 3 INCREMENT "FROM" 
30 z aGAs . 
ENLO  @63C PRNTZ 680B4 INE wed 
GAP  8@EB SETADR @@CC INC -FRHI 
GPL @GED INCADR @@D5 ; INCREMENT “TO” 
INAX  @GEA INAX  @@EA INC TOLO 


INCADR @@D5 GAP «@GEB BNE «+4 
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BRP Nala Orpen tne Pe SEIN 


INC TOHI 
i CHECK IF DONE 


BCC MOVE 


Fig. 5: Assembly Listing, 
Block—Move Program 


==G886 


3 COPY 


;COPIES ANY-SIZE 
; BLOCK OF MEMORY 
; TO ANVPLACE IN RAN 


;BEFORE RUNNING, 
PUT START OF 
BLOCK IN "FROM". 
END OF BLOCK If 
"END", AND FIRST 
DESTINATION I8 
" TO u 


QUATE LIST 
88660 
*=$06 


FRLG 


il TC Tt oT 


eSeed 
FRHI 
Tt 2 § 
ENLO 
k=ket 
ENHI 
kok ey] 
TOLO 


e=8502 
==9663 


==G064 
==0004 
==G005 


» MAIN PROGRAM 


==6268 START 


INCREMENT "ERD" 
E6%e2 itt ENLG 
Lae BHE ++4 
E682 Tho ENHI 
Aveo LOY #8 
H=H208 MOVE 
Big LGA <FRLO:: 
9164 S7A CTULU?, 
i INCREMENT “FROM” 
E6éuu THC FRLO 
peuZ BNE *+4 
EFé6Gi INC FRI 
i INCREMENT “7O" 
E604 INC TOLG 
DBE? BHE #+4 
EGGS INC TGHI 
==6213 
3; CHECK IF DONE 
8 SEC 
A560 LOA FRLO 
E562 SBC ENLO 
A5a4 LEA FRHI 
ES&S SBC ENHI 
SHES BCC MOVE 
3 ALL GONE 
68 BRK 
==@224 LAST. 
08 BRK 
| _ END 
ERRORS= 6800 
Fig. 6: Block—Move, Disassembied 
and Hex Dump 
SEO e= 2608 
“20 
#290 ES INC 82 
H2Ho DB BNE @286 
wes ES INC @2 
B2H6 AG LOY #66 
#2608 Bi LDA (683 
@26A 54 STA (845, 
BSC E6 INC 68 
SHE Oe BNE 6242 
248 £6 -INC Bi 
§2iec Eso INC bd 
8214 66 BHE 822% 
82ei6 E6 int 85 
82135 28 SEC 
H2dS AS LOA Bo 
MELB ES SBC 82 
Beil AS LDA ot 
OZiF £3 SBC Os 
622i 396 BCC 8268 
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' 


if 


-END 


B22 86 BRE 

B224 @8 BRE 

SNP =6200 EF6& @2 DG @2 
+ 8264 Eo G3 AG GO 
> $208 Bi 64 31 G4 
» @26C Ei z 
> @2i6 E6 G1 Es 64 
> 8214 6@ G2 Es 85 
> 8248 22 A5 oe ES 
> @22i0 
+ @228 62 36 ES a 
> 224 68 45 4D 4F 


Author’s note: | was mistaken in thinking 
that memory locations 003C, 003D con- 
tain the address of the last symbol 
found during assembly. Instead, they 
contain the address of the last active 
symbol. With straightforward code, 
these will be the same. But suppose you 
have written your last subroutine (let's 
call it SUBZ) and then decide to Initialize 
a couple of zero-page addresses (start- 
ing at ZP1) as In Figure A. After 
assembly, the fast symbol will be SUBZ, 
but the last active symbol will be ZP1. 
And with this stored in 003C, 003D, you 
will get a very short Ilisting! 


a ee a oo 


The problem could be solved by re- 
writing the program to avoid using 003C, 
003D. But, there’s a simpler solution, as 
shown In Figure B. Add a new symbol, 
LAST, as the last byte of the program. 
(This is a good practice anyway. After 


assembly, the address of LAST tells you 


precisely how much memory the pro- 
gram needs.) Then, after initialization 
and any other housekeeping, add the 
line “*=LAST”’. This makes “last 
active” equal “LAST”, and the listing 
comes out complete. 


SUBZ 
RTS 

k =ZP4 
DBY soAon Figure A: 


END Wrong “Last Active” 


SUBZ 


LAST ATS 


* =ZP1 
.DBY $0A0B 


Figure B: 
Right “Last Active” 


‘* =LAST 


A Perpetual Calendar Printer for the AIM 


if you know the proper tricks, a Perpetual Calander is 
quite easy to program. Here It Is presented for the AIM 65. 
In addition to being an interesting demonstration, it 
points out a few programming tricks required when using 


integer numbers in BASIC. 


Another calendar printer? Yes, but with 
a couple of new twists. First, it puts out to 
the AIM printer. So the next time so- 
meone asks, “Okay, but what can It ac- 
tually do?,” you can give him an answer 
he can put in his pocket and take home 
with him. 


Second, it has a built-in perpetual 
calander algorithm that finds the starting 
day-of-the-week for any month of any year 
from 1583 AD (the start of the Gregorian 
calendar) to 999999999 AD (or until we 


change the calendar, or until the world 
ends, whichever comes first.) The 
algorithm is fairly simple, but the results 


can be impressive. For example: 


RLF 

How AANY HONTHS? 4 

MOHTH #7 F 

YEAR? 1776 

facto JULY PPE hak 
5S M TFT W T F §& 

i 2@ 3 4 5 6 

*, & 83 46 14 42 412 
i4 1246 47 18 15 Se 
22 se #2 24 25 26 27 
23 23 28 21 


“So, Independence Day happened on a 
Thursday.” 

“You mean It figured out all those leap 
years clear back to 1776?” 

“Well, the equivalent of that, yes.” 

“How do | know it’s right?” 

“You don't.” 

“Okay, print me December, 1041. | 
know what day Pearl Harbor happened 
on.” 


RUS 
HOW MANY MONTHS? 4 
MONTH #7 42 


YEAR? i944 


we DECEMBER 1944 skoba 

> M T H T F & 

1 2 = 4 5 6 

, & 3 10 14 12 22 

i¢ i3 26 17 18 13 25 

et 22 23 24 25 26 27 
25 235 29 31 


“So December 7th was a Sunday.” 
“Hey, that’s right! Okay, print me the 
start of year 2000.” 


LIN 

Wig MANY 
FIRST MONT 
YERR? 2668 


aoe JRNUARY 2B bee 
> M T W T F § 
e S 4¢ & 6&6 F 8 
3 1@ 14 42 13 14 15 
if 47 15 19 oh 24 Ze 
23 f4 25 26 27 £5 23 
3G it 
a+ FEBRUARY 2OG@8 ac 
5 M TFT H T F § 
1 2#¢ 2 4 § 
5 7 § 3 18 11 12 
43 44 15 de a7 if 12 
26 24 22 £2 24 25 Zé 
PForm 2g 


Mei Evans 
1027 Redeemer 
Ann Arbor,Ml 48103 


“How about that! it got February right 
Century years aren’t normally leap years 
but every fourth century Is, and there I 


“Right. Want a calendar of this month. 
and may;be the rest of the year?” 

“Sure, but make it through next 
February. Why do all calendars end al 
December?” 

“t don't know, but this one won't.” 
RUN 
HOW HANS MUNTHS? & 
FIRST MONTH #2? 16 
WEAR? 1979 


be OCTOBER 1979 tt 
5 M T Ww T F § 
ft 2 = 4 5 6 
f 6 3 48 41 12 i2 
i4 i2 16 37 16 13 28 
ei se 23 24 25 26 27 
29 235 26 31 
ee NOVEMBER 2979 sao 
> WT Ww T F 5 
1 2 & 
4°35 ¢ *F @ 43 4B 
i iz 22 24 45 16 47 
15 15 2@ 21 #2 23 24 
25 25 27 28 29 36 
a DECEMBER 2979 sack 
5 M T WH T F 5 
1 
© 3 4 5 & F 8 
S$ i6 44 42 13 14 415 
16 i7 15 19 28 24 22 
23 24 25 26 2F 2h 23 
26 21 


wt JANUARY 29S as: 
5 M™ T W T F 
2 € = 4 5 
& * § 91416 11 de 
3 3445 15 47 16 45 
26 si 22 22 24 2h 26 
ero rt 23 26 24 
i FEBPURAR'- 1354 a th S: 
S f€ T wd T F § 
i 2 
5s 4 5 § F @ 3 
19 23 42 47 44 G5 42 
i? 18 25 26 214 22 i2 
eq 25 26 SF 28 24 


The day-of-the-week algorithm ap- 
peared in BYTE (Day of Week and Elaps- 
ed Time Programs,” W. B. Agocs, BYTE, 
September, 1978, p. 126). | read it, 
thought “That's neat,” and forgot it. Then 
a calendar printing program for Teletype 
came out in Kilobaud (“Calendar Pro- 
gram,” Steve Tabler, KHobaud Microcom- 

October 1979, p. 102.). Can the 
AIM do that on its printer? Sure It can! 
Can | build in that day-of-week algorithm 
80 that it doesn’t need starting instruc- 
tions? Sure | can! The resuiting AiM 
BASIC program is listed in Figure 4. 


The starting day-of-week algorithm is 
in lines 85 through 150. It uses “Zellier’s 
congruence,” as explained in Agoc’s arti- 
cle. Zeller first does some juggling of 
month and year numbers before getting 
down to the main computation of the day- 
of-week (variable DW in line 150). 


The algorithm packs more power than t 
needed here; it works for any year, month, 
and day-of-month (day-of-month is 
variable DM in line 130). Since | only need- 
ed the beginning day-of-week of each 
month to be printed, | set DM =1 in line 
129. To restore the algorithm to its full 
power, just delete that one statement, 
and use DM as an input. 


AIM BASIC (like most BASICs) does not 
allow much format flexibility In printing 
numbers, so to squeeze those date-lines 
onto the 20-column printer, a string 
variable, L$, is used to build each line 
before printing. L$ Is first nulled (e.g., tine 
290), and is then built up, character by 
character, as in line 350: 

L$ =L$ + CHR&(48 + D2) 


This statement adds D2, the second 
(units) digit of a two-digit date number, to 
line L$. As shown in Appendix E of the 

AIM BASIC manual, CHR$(48) is ASCII 
“0” (zero), and the other digits follow. So, 
if D2=5, say, ASCII “5” is added to the 
string. After the last character has been 
added, the fine is printed (e.g., line 380). 


lf you are fussy about format, the 
above technique gives you total controi 
over each column of each line. if numbers 
don't print to suit you; don't print 
numbers, print characters. 


AIM BASIC has one quirk which | 
haven't noticed In others (but if you're 
running a different BASIC, you might like 
to check it out). If X evaluates Internally 
as fess than an integer, but is sufficiently 
close to that integer, It will print as the In- 
teger, but INT(X) will truncate down to the 
next-lower integer; 6.g., If 
X = 4,99990...,you get: 

PRINT X 


5 . 
PRINT INT 09 
4 
Don’t believe it? Try thie: 


“Cn 


Coan bn We 


wa Tn 


nl 
a) 
we 

S bent te.! a} 


or 
“Wet 
as) 


To prevent this from happening, add a 
dab to X before doing INT(X). How much 
is a dab? Anything less than the smallest 
meaningful increment in X. The first equa- 
tion in tine 258, for example, is computing 
the century from the year. 

C =INT(¥/100 + .005) 


lf year Y increases by 1, Y/100 in- 
creases by .01, so the added dab Is half 
that. This assures that It will work for the 
year 2000, and is smali enough so It will 
also work for 1999. 


Another example is on Line 262: 
INT(YC/4 + .1). 


When YC Increments by one, YC/4 In- 
creases by .25, and the added dab Is less 
than half that. The previous .005 would 
work fine here, too, but .1 costs fewer 
bytes. 


A final note of minor interest. Line 80 
sends two line-feeds to the printer before 
starting the calendar, and line 430 sends 
it five tine-feeds, so you can tear off the 
finished calendar without having to pump 
th “LF” key. And PRINT TAB (100) is sure 
neater than a string of five PRINT 
statements, isn’t it? 
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List 
4 KEM 
S PEM FERFETUAL- 
CALENDAR PRINTER 
6 Ett 
46 CIM Acide), REC12> 
2a FOR T=4 TO t2:RE 
AG aes sHEST 
3% FOR i=t TO 22:RE 


AL R€cla -HEXT T 
49 IHPUT “HOW MAN'S 
MONTHS 73 4 
me IF N=i THEN INEU 
T "MONTH #°GM 
ou Tr Noi THEN INPL 
JT "FIRST MONTH #"; 1% 
78 INPUT "YEAR"; 1 
4 FRINT TABC4> 
22 REM CONVERT TO 
2eLLEr MONTH & 'TEAR 
& MZ=M-2:YZ=" 


IF M=i THEN Mes 


Me ¢ 
me 
4 


f+:- 

Wa 
i 

=z 

rT] 

fo 

a | 

rc 

mt 


-» 
a 
cS DM a EN 


wea ct) (pene 
4 
Ti 
— 
= 
fr 


Ln | 


wf 


HG GAY-OF-WEEE 
SINT OVE /408+ 
= 144 CF B58 


_ 
a te 


CAH Pee Dy fe - 


479 PRINT’ 5 7 

WoT FOE 

175 REM BUILD FIRST 
DATE-LINE & PRINT 


199 L="":D4=BH-. 5 
134 FOR [=1 19 F 

208 DT=1-Ditd 

eid IF i<fi THEN L# 
=_ t+" u“ 

220 IF I3f4 THEN L# 
sLtt" “4CHR EF. 4847) 

2i8 IF 146.5 THEN L 
$=_F+' ai 


248 NEXT I 
258 PRINT L¢ 
255 BEM CHECK FOR 
LEAP-'YEAR 
258 CHINT(Y/1G8+ 88 
52: %C=-1ae4ec 
268 ACZI=2e 
S62 IF Yox4H INT Cree’ 
44.45 THEN At2>=25 
264 IF ¥C<.5 THEN A 
Ce 228 
278 IF ¥C<.5 AWE C= 
ae INTEC? ‘d+ 43 THEN A 
ge 3seS 
ero REM BUILG 
REMAINING DATE-LINES 
ANG PRINT 


Lal fad fect 
Zot Lge Cre 


Bee chee eo 
ne 
rH 


346 BT=OoT+1:1F BTR 
cMt+ 5 THEN EN=1:G0T 


0 236 

329 Bi= INTCDT/16+. © 
53: f2=sDbT- LG*D1 

228 IF Bac. 5 THEN -L 
$= L¥+" ti 

td IF O4>,.5 THER L 
Beene eens. 


356 LS=LS+CHRS(4o+h 


$=! F+" au 


236 PRINT Ls 
S50 TF ENS 5 THEN 2 


408 PRINT* ” 
405 REM 60 AGAIN 
FOR NEXT MONTH 


419 M=Me44:1F Mo12. 5 
THEN Mai: Y=''+) 
424 W=N-41:1IF N>.5 T 


HEN 38 


476 PRINT TABC108) 
449 END 
42@ REM DATA: WONTH 
 ENGTHS AND HANES 
nies CATA 24,28, 21,3 
sds Ze, a4, Si, 26; 3d: 
20,24 
47% DATS +24 JANUAR 
HW, 4% PEBRUARY, #4 
ROH 


Al 
436 CATH #444 APRIL 
Jade MERI fea: 


455 DATA tore JULY 
“eek AUGUST, & SEPT 
EMBER 


Soa FATA «#4 OCTOBRE 
Rock NOVEMBER, +4 BEL 
EMBER 


A Formatted Dump Routine for the AIM 65 


This HEX dump utility permits the user to control the 
formatting of the dump to conform to his printer's 


capabllities. 


The Dump routine In the AIM 65 
Monitor produces a continuous character 
string and thus is not very readable. The 
dump format is essentially not fit for 
human consumption. The serious AIM 65 
user who needs a memory dump Is thus 
limited to using the Monitor “M” com- 
mand, which only dumps four locations 
at a time. A more useful and efficient 
dump routine with a variable output for- 
mat was needed by the author and thus 
the following program was written. 


The Formatted Dump routine will dump 
memory over the range specified in 
response to the “FROM=” and “TO=”" 
parameters. The number of bytes in each 
line of the dump Is specified In response 
to “f’. All input and output Is in hex- 
idecimal. Each line of the dump gives the 
starting address of the first byte In the 
line, a space, 1st byte, space, 2nd byte, 
etc. The standard AIM-65 printer will han- 
die $05 bytes per line and an 80 column 
TFY type unit will handie up to $16 (22) 
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bytes per line. 


The dump routine makes extensive use 
of the routines in the AIM-65 Monitor as 
well as RAM locations reserved for the 
Monitor. No locations outside of the 
Monitor area, except for the dump routine 
itself, are used by the dump routine. Thus 
the dump routine may be located at any 
convenient piace In RAM and will not af- 
fect any other software. The following 
dumps demonstrate the use of the 
routine. 


AiM-65 MONITOR ROUTINES USED IN 
DUMP PROGRAM 


E7A3 = Print “FROM =" and get address 
in $A41C/D. 


ESSE = Print “ " (blank... 


E910 = Move address frorn $A41C/D to 
$A41AB. 


E7A7 = Print “TO=”" and get address In 
A41C/D. 


E837 = Print“. 


E785 = Gét two hex digits and store In 
A419. 


EA13 = Print “CRLF”. 


EA46 = Print one hex byte = Two ASCII _ 
characters. 


EB58 = LDAY - Simulates LDA (N), Y 
without page 0. 


£182 = AIM-65 Monitor Re-entry. 


FLJN 
FORMATTED 
ENTER VIA F3 
SPECIFY ¢ 


TUM 


ROUTINE 
FUNCTION KEY 
FROM » TO» /( CHRS/L, ENED 


A Formatted Dump Routine for the 
AIM-65 


OL12 


OF 9D 
OF 93 
OF SS 
OFFS 
OF SE 
OF SE. 
OF AO 
OF AS 
OF AS 
OF AD 
OF AC 
OF AF 
OF BO 
OF ERS 
OF Et 4. 
OF RZ 
OF EG 
OF BC 


40 


2 
EO 
a0 
ao 
20 
BO 
20 
20 


List 1 


JMF 


JF 
EOS 
JOE 
JSR 
JSR 
BCS 
SSK 


2O JSR 
20 JSR 


ALi 
33 
ET! 
493 
AL 


ETi § 


30 
be 


FOES 


RMI 
BNE. 


THE 
a 


CHRS/LINE= TWO HEX DEGiTs 


Et PROM O00 TO#EO 20 LON 


BO0O0 40 AS Ch 4 


BOOS BE FE BE I Co 
ROOA Sh B46 Sh RS FF 


Tek 
KY 
Ez Ee 
Wté 


od 
EF 
RF 
BO 


ROOF BA G&S 
ErO14 TO ET 
ROL? BB 13 
BOLE 94 7 


al fe Ee ROMs O00 


HOOO 40 AB CE 40 7F 


hKOOO Tit CoO Slt BGS Gk 
BOLO 4646 BZ BE BS NY 
BOIS 13 BB 1S RZ ER 


at SF ROM=BOOO 
HOOO 40 AB’ CE 4C 
KOLO 66 H7 BR RP Le 


TOO 20 


TO=EO20 
7EoOR2 FE 
EF 


eae, 
RS 
IBY 
SG 


SD 8 


/083 

FE 
a 
EF 
D6 


£10 


ee: 
Bes 
RY 
7 


RE Te 


iz 


4.38 


71 


Or ?9 


EZ AS 
OF DO 
SE 
F9LO 
ES AP 
OF YE 
ESSE 
S357 


E785 


EALS 
A tC 


A+ LA 
A410 


- AALE 


OFFS 
OFC FT 


fy Maa Ns 


0 
G3 


LS iss 
$3 a? 


are 


OF BE 
OF BF 
OFC. 
OF M4 
OF LZ 
OFCA 
OF CK 
OF TIO 
OFTI2 
OF ES 
OFT? 
OF Lies 
OFT 
OF TIE 
OF TUF 
OFED 
OF EL 4+ 
OFE? 
9FES 
OF EE 
OF ELE: 
OFF O 
OFFS 
OFFS 


ae 0 


68 
FO 
AL 
ao 
Ad 
a 
AR 
AO 
20 
AD 
a 
Le 
C3 
CA 
io 
2 
AT 
L8 
éfi 
39 
0 
RE 
4C 
4C 


VR BS FF 


Wé& 


FLA 
BEG 
Li 
JTS 
LitA 
3 SE 
10x 
Loy 
Jk 
Lo 
JOS 
JSR 
INY 
QEX 
NE 
J5R 
LTiA 
CLC 
Anc 
STA 
1 J Se 
INC 
JME 
IME 


oS 


OFFS 
A4- ‘LF 
E44 4S 
At LA 
ed S 
A419 
FOO 

63 SE, 
FLA 

a SE 
AAS 


OFZ 
EALS 
ALP 


ALA 
AS 1A 
OFFS 
A+ i Es 
OF AC 
—FLe2 


aya) 
kh? 


A Compiete Morse Code Send/Receive 
Package for the AIM 65 


Here is a valuable program for any AIM user. While it will 
be of most interest to a HAM radio buff, the techniques 
which include the use of timers, interrupts, table lookups, 
and so forth should be instructive to everyone. 


1. FEATURES: 


A. 


H. 


Send Morse code using the AIM 65 
keyboard. A 256 character buffer 
permits typing ahead. 


Send pre-loaded Morse code 
messages. Three messages total- 
ing 256 characters can be sent. 


A simple Interface circuit allows 
the program to operate as an elec- 
tronic keyer. 


Code speed in words per minute is 
entered on the keyboard and 
displayed on the AIM 65 display 


Control of the entire program is 
from the keyboard. 


A single integrated circuit pro- 
vides the interface for receiving 
Morse code. 


. The received code is converted to 


alphanumeric characters on the 
AIM 65 display, and is scrolled left 
as the code is received. 


Code speed is adjustable from 5 to 
99 wpm. 


ll. OPERATING INSTRUCTIONS 


The following paragraphs serve as an 
operating guide for the program. 


A . Load the program given in the listings 


and construct the interface circuits 
shown In Figures 1 and 2. The cross- 
coupied NAND gate interface in 
Figure 1 is not needed if you do not 
operate the program as a paddle-type 
electronic keyer. Set the P register to 
zero before starting the program. 


. Execution begins at address $0500. 


After initializing the program, three 
messages (called A, B and C) may be 
entered from the AIM 65 keyboard. As 
messages are entered they will ap- 
pear on the display, and they will be 
recorded by the thermal printer if the 
printer is on. If a mistake is made, 
pressing the DEL key will clear the 
character and a new character may be 
entered. The RETURN key is pressed 
when a message Is complete. An ex- 
ample of a message is ‘‘ CQ CQ CQ 
DE KOEI KOEI K.” Message A is the 
first one entered, message C is the 
last. The sum of the characters in- 
cluding spaces cannot exceed 256. 
Pressing the RETURN key at the end 
of the third message causes the pro- 
gram to proceed to the keyboard-send 
mode. If you do not have any 
messages to place in memory, hit the 
space bar and the RETURN key three 
times in succession to enter the 
keyboard-send mode. 
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C . In the keyboard-send mode, pressin: 


a key will cause the correspondin 
Morse character to be sent, whik 
pressing a control key will cause th 
corresponding contro) operatior 
(described below) to be carried oul 
The keyer will also operate at thi: 
time if you wish to use the keye 
rather than the keyboard. 


. The first thing you will want to do ir 


the keyboard-send mode is set thi 
code speed. Press the CTRL key; and 
while holding down the CTRL key 
press the S key (S is for “speed”’) 
Release these keys and then enter tht 
code speed at which you wish t 
operate. The two-digit decima 
number should appear at the far lef 
of the display. 


. Pressing CTRL A, B, or C will cause 


the corresponding message to be 
sent. Any set of spaces in any of the 
messages may be Interrupted by the 
keyer (to fill in an RST report, for ex 
ample), but they will not be inter 
rupted by keyboard entries other thar 
control functions. 


. Morse code may be sent from the 


keyboard by typing the characters 
They appear on the display as they 
are typed, and they disappear from 


the display when they are sent. You 
can type ahead of the Morse code be- 
ing sent by filling a 256 character buf- 
fer. (No warning is given for a full buf- 
fer because, in my experience, you 
rarely get 256 characters ahead.) If 
while sending Morse code with the 
keyboard you find that you have made 
a mistake, perish the thought, a delete 
function has thoughtfully been provid- 
ed. Use the DEL key to try to get to the 
mistake before the send program gets 
to the character (this can be chalieng- 
ing at high code speeds or with slow 
fingers). Also, if you delete when there 
are no characters left to delete, you 
will get the contents of the entire buf- 
fer. Hit the RETURN key if this hap- 
pens. RETURN starts the entire pro- 
gram over. 


. The RETURN key serves as a panic 
button. It will restart the program 
when you are in the keyboard-mode. It 
can get you out of desperate situa- 
tions. The RETURN key followed by 
the F1 key puts you right back in the 
keyboard-send mode without affec- 
ting the messages A, 8, and C. 


. The speed can be changed at any 
time, even in the middle of a message 
or when the send buffer ,has 
characters left to be sent. However, 
the CTRL S interrupts the program un- 
tll the two-digit number is entered; so 
if you are tn the middle of a dot or 
dash, the transmitter will remain on 
until you finish entering the speed. At 
that time the code element, the 
character, and the remaining mes- 
sage will be sent at the new speed. 


. If you wish to pretoad the buffer while 
the “other guy” Is sending, you can 
press CTRL L (L Is for toad"). The pro- 
gram toops while you load the buffer. 


. CTRL K returns the program from the 
load loop (or the receive mode) to start 
sending the code in the buffer. CTRL 
K always sends the program back to 
the keyboard-send mode, disabling 
the CTRL L mode and the receive 
mode. 


. CTRL R sends the program to receive 
code. The program will copy code over 
a wide range of code speeds, so ad- 
justments in the code speed are Infre- 
quent. However, if you want to be 
“right on,” the left-most digit of the 
speed display will blink if your speed 
is’ too fast, while the right-most digit 
will blink if your speed is too slow. 
Blinking digits are produced by 
measuring the incoming dot length. 
Variations in the dot length of the in- 
coming code may cause both digits to 
blink. Then you are “right on!” Noise 
spikes are typically regarded as ex- 
cessively short dots and will cause 
the left-most digit to blink. 


Figure 1: Interface Circuit for the Keyer. Some 
transmitters will require a relay for keying. This in- 
terface circuit may be omitted if you do not wish to 
operate in the keyer mode. 


L Do not spend a lot of time trying to 


zero-in on someone’s code speed. The 
finite resolution of the speed settings 
prevent a measurement that is more 
accurate than about 2 wpm. Varia- 
tions in the weight ratio and other per- 
sonal characteristics of sending will 
also affect the actual speed. The 
code-speed measurement will be ac- 
curate for machine-sent code, from 
W1AW or another AIM 65 for example. 
The received code will appear on fhe 
AIM 65 display moving from right to 
left. A too-high speed setting is better 
than too low. 


M . The bandwidth of the interface circuit, 


AUDIO 
INPUT 


0.47 


an LM567 tone decoder, is narrow, so 
tuning is delicate. Watch the LED out- 
put carefully until it blinks in syn- 
cronism with the incoming code. 
Practice copying W1AW broadcasts 
until you become familiar with the 
operating of the receive mode. 
Remember that an AIM 65 and an 
LM567 are somewhat less powerful 
than the human mind and the ear 
when copying faint signals in the 
presence of noise. 


. You can return from the receive mode 
to the keyboard-send mode by the 
CTRL K operation. 


VA 
Figure 2: interface Circuit for the Receive Mode. The 
5K potentiometer is adjusted to correspond to the 
center frequency of the CW note. The signal Is 
tuned with the receiver until the LED flashes In 
unison with the code being received. 
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TABLE I. Routine Location Table. 


LOCATIONS 
$200 ~ $Q2FF 
$0300 — $O3FF 


$Q420 ~ $OL5C 

$0480 - $04D7 
SOLF3 

$0500 — $0564 


$0565 - $0582 


$0563 - $0585 


$O58F = $05A2 
and 
$O5F4, - SO5FO 


$O5A3 — SO5F3 


$0600 — $O65F 
and 
$O9A7 — $0907 


$0660 - $0671 


$0672 - $0684, 


$0685 - $06M 


$069B - $06A5 


$0646 ~ $O6BF 


$06CO = $06E5 


S06E6 — $O6ED 
and 
$090 — $OSA6 


FUNCTION 


Messages A, B, and C are stored in these locations. 
Keyboard buffer. Holds up to 256 characters so you can 
type ahead. 

ASCII to Morse Code Conversion Table 

Morse Gode to ASCII Conversion Table 

Conversion of comma (,) in Morse Code to ASCII. 

Routine to initialize certain registers and input the 
three messages with the keyboard. 

Set -up interrupt vector and start servicing the keyboard 
on an interrupt basis. 

Initialize the keyboard buffer memory locations. 
Keyboard wait loop. Program waits here until a keyboard 
entry has been made to the buffer. When such an entry 
is made, the program sends the character. 

Subroutine SEND. Contains subroutine DOT at $0O5CB, 
subroutine DASH at $05E,, and subroutine TIMER at $05E9. 
Subroutine KEYBOARD. This subroutine is part of the 
interrupt routine that scans the keyboard. If a key has 
been depressed, it stores the ASCII character in the 
buffer, unless it is a control character. If it is a 
control character, the appropriate control function is 
implemented. For example, Control R sends the program 
to the receive routine. 

Subroutine DISPIAY. Used to display characters on the 
AIM 65 display. 

Subroutine MODIFY. Used to shift the elements in the 
display buffer to the left. 

Subroutine BACKSPACE. Used to shift the elements in 
the display buffer to the right, entering a blank (space) 
for a deleted character. 

Subroutine CLEAR. Used to clear the display buffer. 
Subroutine NONAME. Used to clear the display location 


that contained the character just converted to Morse code. 


- Interrupt routine for keyer. 


Interrupt routine to scan the keyboard. 
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iil. BACKGROUND 


Morse code send/receive programs 
have appeared in several forms in the 
literature. Consult the bibliography for- 
some useful references. The routines- 
used in this program have previously 
been described by the author's articles In 
MICRO (MICRO is published by MICRO 
INK, Inc., P.O. Box 6502, Chelmsford, MA 
01824), and will not be described in detail 
here. Table 1 locates the various routines, 
and the references given in the 
bibliography will explain most of these 
routines. 


The keyboard is read on an Interrupt 
basis, making extensive use of the 
monitor subroutine ONEKEY at $ED05. 
Also, the keyboard-read routine 
duplicates the monitor subroutine 
GETKEY at $EC40, with some important 
modifications for interrupt operation. The 
T1 timer on the user 6522 Is used to pro- 
duce interrupts every $8000 micro- 
seconds, at which time the keyboard Is 
scanned. 


The Morse code receive algorithm 
may be summarized as follows: Define 
the presence of a tone as a mark and the 
absence of a tone as a space. The receive 
progsam idles in a loop until the leading 
edge of a mark element produces an in- 
terrupt request (IRQ). At that time, a mark- 
counter memory location is incremented 
at 1024 microsecond intervals until the 
mark is gone. During a space a space- 
counter memory location is Incremented. 
When the space-counter is equal to 
the dot length as determined by the 
speed setting, then the mark-counter 
memory location Is examined to deter- 
mine if the mark was a noise pulse, a dot, 
or a dash. If the mark counter was less 
than ¥% the dot length, the mark is regard- 
ed as a noise pulse. If the mark counter is 
between 1% the dot length and twice the 
dot jength, the mark is regarded as a dot. 
Hf the mark counter exceeds twice the dot 
length, the mark is recorded as a dash. 


As soon as a decision is made about 
the mark counter, it is cleared to prepare 
it for the reception of the next Morse code 
element. Meanwhile, the space counter is 
continually being incremented once every 
1024 microseconds. When it exceeds 
twice the dot length, the program con- 
cludes that an entire Morse character has 
been received; and the corresponding 
alphanumeric character is displayed on 
the AIM 65 display. As the space counter 
Is incremented further, it reaches four 
times the dot length; at which time the 
program decides that a word space has 
been sent, and a space appears on the 
AIM 65 display. At this time the space 
counter is cleared, the speed setting is 
checked to see if the operator changed 
the speed setting on the AIM 65, and the 
program returns to the wait loop to wait 
for the next mark. 


The author is aware of receive pro- 
grams that use automatic calibration of 
tracking on the incoming code speed. 
Consult the bibliography for details. My 
own experience is one of frustration 
because the presence of noise and in 
terfering signals affects the automatic 
callbration, although | have heard reports 
that Bob Kurtz’s program works nicely. In 
the present case, we have used manual 
control of the code speed with good 
results. Some experience and practice Is 
useful. Bab Kurtz’s program could be 
adapted for the AIM 65, and could also be 
adapted to work with the present send 
programs. 
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TABLE I. Routine Location Table, continued. 


LOCATIONS 


FUNCTION 


$06EE ~ $073F - Interrupt routine for Morse code receive program. 


$0750 = $0745 = Control S routine. 


Converts decimal entry of speed to 
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SO7AB - $07B5 = Subroutine TMEIOAD. Used to load the timer for the receive 


program. 
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$0620 - $0901 - Receive routines. 
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An AIM-65 Notepad 


A few short assembly language routines implement a 
notepad and provide the basis for versatile output to the 
AIM-65 display. These techniques overcome a variety of 


common output difficulties. 


Do you want to learn how to use the 
20-character AiM 65 display? This short 
article describes several assembly 
janguage subroutines that may be used 
to display input/output Information. The 
entire program functions as a novel 
notepad” that may be used to leave a 
message for someone else or for your- 
self. However, its primary utility will lis 
In the applications that you design 
which use the AIM 65 display. The pro- 
gram listing is given, and its description 
follows. 


We will begin by describing some of 
the features of the notepad program, 
and then return to a description of some 
of the subroutines that you might want 
to duplicate in your assembly Janguage 
programs. The notepad program allows 
the operator to enter a message contain- 
ing from one to 256 ASCII characters (in- 
cluding spaces) Into locations $0200 to 
$O2FF of the AIM 65’s memory space. 


While entering the message, the 
characters typed on the keyboard are 
displayed on the 20-character display. 
The message enters the right-hand side 
of the display, and it Is scrolled to the 
left. If an error is made, the DEL key 
allows the entire message to be back- 
spaced, and a new character or set of 
characters may be entered. 


Once the desired message is entered, 
the RETURN key starts the message cir- 
culating from right to left on the display. 
It circulates at a rate that makes it easy 
to read. If more than one space (ASCIl 
value = $20) Is encountered, the space 
Is not displayed. Thus, a message that 
contains less than 256 characters does 
not take a noticeable amount of time to 
display “empty” locations. 


You can leave a message to yourself 
such as “CALL SAM TONIGHT”, or you 
can remind your wife to “BE SURE TO 
LET ROVER OUT WHEN YOU GET 
HOME.” Of course there are much less 
expensive ways: to do this than by pur- 
chasing AIM 65, and it is doubtful 
whether this notepad program will pro- 
vide sufficient justification to convince 
your spouse that you ought to have a 
computer. The program is more of a 
novelty that might be useful as an adver- 


tising gimmick, It you are selling AIM 
65s, or to impress your friends. 


On the other hand, the subroutines 
could be useful in a large varlety of pro- 
grams. | use several of the subroutines 
in my Morse code program for the AIM 
65 (available from me for $3.50). The 
subroutines might be useful in computer 
assisted instructlon programs that re- 
quire interaction of the computer with 
the operator. Or they might be useful in 
testing reading and comprehension 
speed in certain psychological tests of 
perception and cognition. 


The read/write (RAM) memory toca- 
tlons from $A438 to $A43B, memory 
locations which are available on an off- 
the-shelf AIM 65, are used to store the 
ASCIil characters to be displayed. We 
call these locations the display buffer. 
These 20 locations are filled with ASCII 
Spaces by the subroutine CLEAR star- 
ting at address $03A0. Subroutine DIS- 
PLAY, starting at address $0360, 
transfers the ASCII characters in the 
display buffer to the AIM 65 display. It 
does this by making use of a subroutine 
in the AIM 65 monitor calied OUTDD1 tht 
is located at $EF7B. 


Subroutine OUTDD1 in the AIM 65 
ROM is very useful in working with the 
20-character display. The content of the 
X register addresses the display in the 
sense that X = $00 Is the leftmost 
character on the display, and X = $13 
(19) is the right-most character on the 
display. 


The accumulator, A, must contain the 
ASCIl representation of the character to 
be displayed before the jump to the 
OUTDD1 subroutine is made. The ac- 
cumulator must also be ORAed with $80 
before the subroutine call, or the cursor 
will be displayed. With the accumulator 
properly loaded and the appropriate “ad- 
dress’ in the X reg!ster, a subroutine 
jump to OUTDD1 will display the 
character. 


A jump to subroutine CLEAR, at 
$03A0, followed by a jump to subroutine 
DISPLAY wiil clear the display. To put 
some information in the display and 
scroll it to the left, subroutine MODIFY 
(starting at address $0372) Is used. 


Dr. Marvin L. De Jong 
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Subroutine MODIFY stores the contents 
of the accumulator in location $A44C. 
Then it proceeds to shift the contents of 
$A439 to $A438, $A43A to $A439, and so 
on until it finishes by shifting the con- 
tents of location $A44C to $A44B. 


Once the display buffer is properly 
modified by subroutine MODIFY, then a 
subroutine call to DISPLAY will cause 
the down-shifted ASCII characters in the 
display buffer to appear as left-shifted 
characters on the AIM 65 display. 


The sequence of events, starting at 
the beginning of the main program, is as 
follows: First, the display buffer is 
cleared by subroutine CLEAR. The 
message buffer from $0200 to $02FF is 
cleared (loaded with ASCII spaces). 


Next, an AIM 65 monitor subroutine, 
READ, is called to get a character from 
the keyboard. As long as no key is 
depressed, the monitor stays in this 
subroutine. A key depression results ina 
return to the main program with the 
ASCIi representation of the character in 
the accumulator. The contents of the ac- 
cumulator are transferred to the 
message buffer, using Y as an index for 
the buffer’s base address of $0200, 
unless it Is the ASCII character for RE- 
TURN, DEL, or the F1 key. 


The F1 key starts the entire program 
over. The DEL key removes the last 
character from the message buffer, and 
It backspaces (Scrolls right) the display 
buffer and the display itself. Tne RE- 
TURN key starts the message, and this 
key should be pressed only when the 
desired message has been piaced in the 
message buffer. 


lf a character is placed in the 
message buffer; then It is also displayed 
by calling subroutines MODIFY and DIS- 
PLAY in succession. If the message buf- 
fer is filled, or If the RETURN key is 
pressed, then the program will proceed 
to scroll the entire message across the 
display. 


The message is displayed by getting 
characters from the message buffer, 
starting with location $0200, and then 
calling subroutines MODIFY and DIS- 
PLAY in succession. A time delay is in- 


0280: 
0290: 
0300: 
0310: 
0320: 
0330: 
0340: 
0350: 
0360: 
0370: 
0380: 
0390: 
O400: 
0410: 
0420: 
0430: 


: 0300 
0050: 
0060: 
0070: 
0080: 
0090: 
0100: 
0110: 
0120: 
0130: 
0140: 
0150: 
0160: 
0170: 
0180: 
0190: 
0200: 
0210: 
0220: 
0230: 
O20: 


0300 
0303 
0305 
0307 
0309 
030C 
030D 
030F 
0312 
0314 
0316 
0318 
O31A 
031C 
031E 
0320 
0321 
0324 
0327 
0329 


0332 
0334 
0337 
0339 
033B 
033D 
033F 
0341 
0343 
0345 
0347 
O34A 
O34D 
0350 
0352 
0355 


03 
02 


02 
03 
03 


AY 
AY 


ORG $0300 
JSR  $03A0 
LDYIM $00 
STY $00 
LDAIM $20 
STAY $0200 
INY 

BNE $0309 
JSR $E93C 
CMPIM $0D 
BEQ $0332 
CMPIM $5B 
BEQ $0300 
CMPIM $7F 
BNE $0324 
LDAIM $20 
DEY 

JSR $0385 
STAY $0200 
BCS $030F 
JSR $0372 


$0360 


$030F 
LDYIM $00 
LDAY $0200 
CMPIM $20 
BNE $0343 
LDA $00 
BNE $0354 
INC $00 
BNE $034A 
LDAIM $00 
STA $00 
LDAY $0200 
JSR $0372 
JSR $0360 
LDAIM $FF 
STA  $A497 
BIT  $A497 


ORG $0360 
LDXIM $13 


* MAIN PROGRAM 


$0355 


$0334 
# DISPLAY SUBROUTINE 


TXA 

PHA 

LDAX $A438 
ORAIM $80 
JSR $EF7B 
PLA 

TAX 

DEX 

BPL $0362 
RTS 


* MODIFY SUBROUTINE 


STA $ah4C 
LDXIM $01 
LDAX $4438 
DEX 

STAX $A438 
INX 

INX 

CPXIM $15 
BCC = $0377 
RTS 


* BACKSPACE 


LDXIM $12 
LDAX $A438 
INX 

STAX $A438 
DEX 

DEX 

BPL $0387 
TYA 

SBCIM $14 
TAX 

LDAX $0200 
STA $4438 
JSR $0360 
RTS 


# CLEAR SUBROUTINE 


LDXIM $13 
LDAIM $20 
STAX $A438 
DEX 

BPL $03A4 
RTS 


serted (SFF is loated into the divide- 
by-1024 counter on the 6532 chip) unless 
more than one space occurs in succes- 
sion. In that case, the subroutines and 
the time delay are not used at all, and 
the program keeps searching through 
the message buffer until it finds another 
non-space ASCII character, in which 
case subroutines MODIFY and DISPLAY 
are called again. 


One subroutine that remains to be 
mentioned is.BACKSPACE used by the 
DEL key. !t starts at $0385 and its effect 
Is to backspace the display buffer, 
replacing the leftmost character with 
the appropriate character from the 
message buffer. It then calls subroutine 
DISPLAY to show the typist that the 
character has, in fact, been deleted and 
the entire message has been backspac- 
ed. 


Again, |! think the subroutines 
MODIFY, DISPLAY, CLEAR, READ, and 


OUTDD1 will be of considerable use if 
you are writing programs that use the 
keyboard or the display on the AIM 65. 
All of them are quite short, and a little 
Study will show how they work. Most in- 
volve only simple loops and nothing 
more complicated than indexed ad- 
dressing. Mimic or echo your display on 
your computer Storefront and you will 
have something that will really catch the 
eye, but don’t ask me where to get the 
appropriate neon sign elements. 

A summary of the subroutines 
follows: 
DISPLAY Takes the contents of 
locations $AS438 to 
$A44B and _ transfers 
them to the AIM 65 
display. A is modified, 
and X = 0 on return. 
MODIFY Successively shifts the 
contents of locations 
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CLEAR 


BACKSPACE 


$A439 to $A44C to loca- 
tions in memory whose 
addresses are one less. 
The contents of the ac- 
cumulator, when the 
subroutine Is called, will 
be stored in location 
$A438. A and X are modi- 
fied. 


Loads $20 In the display 
buffer, locations $A438 
to $A44B. A and X are 
modified. 


Reverses the effects 
found in MODIFY and, in 
addition, loads location 
$A438 with the contents 
of the message buffer in 
$0200. + (Y — $13). Y 
points to the last entry 
made in the message 
buffer. X and A are 
modified. 


Extending the SYM-1 Monitor 


A program relocator, a program listing utility and a 
selective, extended trace routine illustrate how true 
monitor extensions can implement additional functions 


and commands. 


When Synertek wrote the monitor for 
the SYM-1, they left it open-ended by 
vectoring many of the major functions 
through a system RAM vector table. By 
changing the addresses in the vector 
table, it is relatively easy to implement 
additional functions and commands. 


The three routines described in this ar- 
ticle are almost permanently resident in 
my system. They have been coded as 
true monitor extensions in that they use 
only addresses already allocated to the 
TOM and could easily be put into 

M. 


The programs are not complex or 
large, but that is also one of their good 
points. | have them sitting up in high 
memory where they are out of the way 
but available when needed. 


The first program is a modified ver- 
sion of one that appears In The First 
Book of KIM. It is a program relocator 
that adjusts all the branches, jumps, and 
absolute address locations in a program 
so that you can relocate it. It is really the 
next best thing to a relocating loader. 


The second routine is a little program 
lister that prints your program, putting 
one instruction on each line. This is 
easier to read and check than the stan- 
dard Verify or Paper tape formats. 


Finally, there is an extended trace 
routine that displays the values of all the 
registers, and additionally allows you to 
specify that only a portion of your pro- 
gram is to be traced. Did you ever 
wonder what was happening to the 
registers when one of your subroutines 
is executed only five times in a two thou- 
sand repetition toop? This utility lets you 
determine just that. There is a price that 
is pald, but ! will get to that later. 


If you have looked at the program 
code yet, you may have wondered at the 
unusual address. After all, who ever puts 
an extension in low memory? When | 
decided to write this article, | intended 
to use addres $C00, where | have it on 


my system, but then | decided to change 
it to low memory. 


Almost everyone has scratch memory 
there to work on a program. After you 
enter it, check the memory dump, and 
run a few tests; you can use the program 
to relocate itself! 


Actually, what you have to do is block 
move the program to the desired ad- 
dress and use the new U0 command to 
perform the relocation on the new copy. 
Tell it the correct FROM and TO address, 
but make the program starting address 
the new location. There are three loca- 
tlons that must be changed manually, 
and you are all set up. 


Nicholas Vrtis 
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Before | go into a discussion about 
the programs, | would like to mention the 
interfaces to the SYM monitor that are 
used, and a few that aren’t but are sort 
of handy anyway. The programs them- 
selves are not complicated, and | try to 
keep them pretty well commented. 


The SYM manual contalins a small ex- 
ample showing how to add a command 
to the monitor, but isn't really clear 
about how It works. For one thing, the 
monitor uses the unrecognized com- 
mand vector for more than just the UO 
through U7 user commands. It does a 
jump via this vector whenever It en- 
counters a command it cannot process, 
or a character that is non-hex. 


MICRO-WARE ASSEMBLER 65XX~1.0 PAGE 01 


10: . 
3020, SHSCAHASS THAHSSSRSASLSES RSS SRERAESECASRSEKRARPRHTERSBRKKSS 
0030: ® SYM-1 USER MONITOR FUNCTION EXTENSIONS # 
OO40: MODIFIED 7/3/79 BY MICRO STAFF # 
0050: # UO - RELOCATE PROGRAM 
0060: # P1 = FROM ADDRESS # 
0070: # P2 = TO ADDRESS # 
0080: # P3 = START OF PROGRAM # 
0090: # U1 -— MINI-PROGRAM LISTER * 
0100: # P1 = PROGRAM STARTING ADDRESS ? 
0110: * P2 = PROGRAM ENDING ADDRESS ® 
0120: # ---- USER TRACE ROUTINE Y-X-A-FLAGS-STACK # 
0130: * A626 = INCLUSIVE TRACE STARTING ADDRESS ® 
0140: # A62C = EXCLUSIVE TRACE ENDING ADDRESS * 
0150: * a 
0160: #* SYM COMMAND 'E 200' WILL SET UP VARIOUS ADDRESSES # 
0170: # AND VALUES FOR THESE EXTENSIONS # 
0180 : SFSKLTTEFSSESSHSSTARDSHASSSAKSAAGCSRKERASA ASRS KKKRAAKGERSES 
0190: 0200 ORG $0200 
0200: 0200 53 INITCO = $53 STORE "SD*® USER ROUTINE VECTOR 
0210: 0201 44 = $44 
0220: SHEKERRISSASSE VASAT AHKRKRRASTSSSECAERESREKKGASSHARESS LESS 
0230: ® CHANGE THE FOLLOWING WHEN RELOCATING THE PROGRAM ‘* 
o2u0 : ASSHSKTRSKCSASSSSSHASSHASLSSARLKASHESS TECH RSSRKKSRAESSS KTS 
0250: 0202 32 = $32 STORE "22C" AND CHANGE 
0260: 0203 32 = $32 IF ADDRESS CHANGES 
0270: 0204 43 = $43 
0280: 0205 2C = $2C STORE ",A66D" 
0290: 0206 41 = $41 
0300: 0207 36 = $36 
0310: 0208 36 = $36 
0320: 0209 44 = $44 
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This means that it gets used for a lot 
of junk in addition to the defined user 
commands. It also means that you can 
use characters other than Un as com- 
mand extensions, If you want, as long as 
they are not used for valid SYM com- 
mands with the samé number of para- 
meters. 


The monitor saves the command value 
in a location called LSTCOM. When a 
carriage return is entered, the monitor 
reloads the command into the A register 
and loads the number of parameters into 
x. 


So, the first thing our monitor exten- 
Sion should do is check the character in 
A against the value in LSTCOM. If they 
are the same, the program was called 
after normal command termination. If 
they are different, the command was not 
terminated properly and we want to 
make sure the carry Is set and return 
with an RTS instruction. 


This will cause the monitor to print the 
standard “ER xx’”’ message and return to 
command mode. 


Once we know that the command was 
terminated properly, we have to deter- 
mine which command it was. As | men- 
tloned earlier, the monitor does not 
verify the command character as it is 
entered, so we could be here for any- 
thing, including a “vaild” command with 
the wrong number of parameters. 


Finally, if we are on the right com- 
mand, and if it was terminated properly, 
the last check Is to make sure that exact- 
ly the correct number of parameters has 
been entered. If not, there will be miss- 
Ing Information, or information will be in 
the wrong place. For any errors, all the 
extension has to do is guarantee that 
the carry Is set and return to the monitor 
with an RTS instruction. 


As an aside, the command processor 
does not initialize the stack register, and 
so, if you are debugging an extension 
and stop it before the RTS to the 
monitor, you can quickly use up a lot of 
the stack area. This only hurts If you 
have a routine or two located there, as | 
usually do. 


The manual! claims that locations $F8 
through $FF are reserved for monitor 
use. Did you ever wonder what they are 
used for? Unfortunately, these locations 
were not assigned a varlable name In the 
menitor assembly, so there are no cross 
references to them In the listing. | have 
tracked down most of the applications, 
but | don't guarantee that | didn’t miss 
one. 


The most used locations are probably 
SFE and $FF. These are the locations 


020A OD 
020B 4D 
o20C 41 
020D 36 
O20E 35 
020F 38 
0210 OD 
0211 31 
0212 38 
0213 OD 
0214 53 
0215 44 
0216 38 
0217 30 
0218 43 
0219 30 
021A 2C 
021B 41 
021C 36 
021D 37 
021B 41 
O21F OD 
0220 53 
0221 44 


0222 33 
0223 34 
0224 31 
0225 2¢ 
0226 41 
0227 36 
0228 37 
0229 34 
022A OD 
022B 00 


022C 
022C 
022C 
022C 


022C CD 57 a6 
O22F FO 02 
0231 38 

0232 60 


0233 C9 14 
0235 FO 03 


$4D STORE "Ma658" AND CHANGE 
$41 MAX RECORD 

$36 TO BE 

$35 TWENTY -FOUR 

$38 BYTES LONG 


$31 STORE "16" 


$53 SET TRACE VECTOR 
$38 STORING STRING *"SD80CO,A67A" 


$53 STORE "SD" 


i | | | | | |) 
a 
= 
& 


Y 
a 
= 
= 


FREFLTLEFKRHKREKERE ELAR SRK GREG STREP SHKSEAERESERRE RAGES 


* CHANGE THE FOLLOWING WHEN RELOCATING THE PROGRAM #8 
ESSE SEREREAHELERSSTEG KHER ES ER SARERREARAEA REED EONS EE 


$34 

$31 

$2c STORE ",A674" 

$41 

$36 

$37 

$34 

$0D 

$00 ZERO IS END OF EXEC REQUEST 
SSRSSRARSHKSKSLSSTESSSTSEKRSLALSRSTEHRESAVERRARHGHHREHES 


* PAGE ZERO ADDRESS LOCATIONS * 
SHHEEAEGERES EATERS ECE RETA ATCA E SEE ETAT ETE REDE EERE ERNE 


CURAD # 
CURADE # 
ADJUST # 
ADJUSH *® $00FD AND HIGH ORDER 
ERHTLSRA TETHER EO EONS NOOO ONE MEEK ESHER ESTEE RE RESEDA ER 
* BY JIM BUTTERFIELD (SEE "THE FIRST BOOK OF KIM") 
MODIFIED BY N. VRTIS TG RUN AS MONITOR 

EXTENSIONS ON THE SYM-i 


$OO0FE SYM-1 "OLD ADDRESS LOW ORDER 
$O0FF AND HIGH-ORDER 


THIS PROGRAM ADJUSTS ABSOLUTE AND RELATIVE 
ADDRESSES OF A PROGRAM SO IT CAN BE RELOCATED 
OR EXPANDED 
>>>>> NOTES: 
1- PAGE ZERO REFERENCES ABOVE $8000 WILL NOT 
BE CHANGED UNLESS SPECIFIED AS ABSOLUTE 
THREE-BYTE INSTRUCTIONS 


a 

# ‘ 
® a 
# ® 
* ® 
# ® 
# 

# 

t 

* 

tt 

2- ANY REFERENCES ABOVE $8000 WILL NOT BE * 
# 

# 

% 

# 

* 

e 

® 

a 

* 

s 

* 


? 

# 

a 

# 

# 

* CHANGED 

# 3- PROGRAM STOPS WHEN IT FINDS AN ILLEGAL 
* OPERATION CODE (CAN USE $FF) 

# = =4~ DON'T RELOCATE DATA 
a 

# 

# 

& 

# 

# 

# 

* 


INPUT PARMS: 

PARM1 - RELOCATE FROM ADDRESS 
(FIRST OPCODE THAT WILL MOVE) 

PARM2 - RELOCATE TO ADDRESS (WHERE PARM1 
WILL BE MOVED TO) 

PARM3 - PROGRAM START ADDRESS (FIRST 
INSTRUCTION IN PROGRAM 

SURGES HERERNTLEES CEE ONNE UNOS EMERSON EECORERELE CER EES 


CMP LSTCOM SEE IF COMMAND TERMINATED PROPERLY 


BEQ UO YES -- SEE WHICH COMMAND 
COMERR SEC ELSE SET CARRY AS ERROR FLAG 
RTS AND RETURN TO MONITOR FOR ER XX 


U0 CMPIM $14 MAKE SURE IT IS "UO" 
BEQ UOCOMM BRANCH IF IT IS 


$33 STORE "341" AND CHANGE IF ADDRESS CHANGES 


$00FC SYM-1 PAGE ZERO SCRATCH AREA LOW-ORDER 


that the monitor uses for almost all of 
it’s indirect addressing. If you look at the 
command descriptions, this Is where the 
“OLD” address is kept. 


These programs use it in the same 
manner that the monitor does. It’s im- 
possibie to display these locations via 
the monitor commands directly, but do- 
ing a Verify or Memory will show you 
what they are painting to. Also, If you 
plan to use them, none of the monitor 
routines will change them, but almost 
any command will. 


Another important pair of locations is 
$FA and $FB. These contain the address 
of the next byte to be obtained as input 
when processing In the execute mode. If 
your program modifies these locations, 
it can’t be invoked from the execute 
mode. 


As another aside about the execute 
mode, all input comes from RAM, so If 
you do a JSR INCHR and expect to get 
keyboard input while in execute mode it 
won’t work. The execute command is the 
only one that modifies these addresses. 
The other locatlons are pretty much 
scratch locations; you can probably use 
them without affecting command opera- 
tion, but | would not count on them be- 
Ing the same after any call to monitor 
service routines. 


The cassette routines use $FC and 
$FD, as does the block move command. 
Terminal input uses $F8 as a character 
buildup area, and terminal output uses 
$F9 to hold the character as it is being 
output. There may be a few other uses, 
but | would stay away from these unless 
you are really desperate for page zero 
Space, or you are writing monitor exten- 
sions. 


The System RAM areas are much bet- 
ter documented in the monitor listing. 
They have also been assigned names, 
and therefore appear on the assembly 
cross reference list. These programs 
only deal with two main areas. This is 
$A630 through $AG63F, and they are 
monitor scratch areas. The two bytes us- 
ed here are not used by the monitor, ac- 
cording to the cross reference lists. 


The locations $A64A through $A64F 
are the addresses where the monitor col- 
lects Input parameters. Each is @ two 
byte parameter area, and all three areas 
are initialized to zero at the start of com- 
mand processing. The problems begin 
when you find that the labels P1, P2 and 
P3 are a little misleading. The monitor 
starts collecting parameters in the P3 
area, and rotates the whole area 16 bits 
left for each new parameter. It works out 
alt right for three parameters, but two 
parameters will end up In P3 and P2, 
while one ends up in P3. 


0237 
0234 
O25C 


023E 
023F 
d242 
o245 
0247 
024A 
O24D 


O24F 


0252 
0255 
0257 


0259 
025C 


025E 
025F 


0261 
0264 
0267 
0269 
0265 
026E 
026F 


0270 
0271 
0273 
0274 
0275 
0277 


027A 
027C 
027D 
O27E 
0280 


0283 
0284 
0286 
0288 
028B 
028E 
0290 
0292 
0293 
0295 


ED 4E 


20 24 
30 07 
FO 2A 


20 1A 
FO F4 


Bi FE 
20 B6 


cs 

A6 FE 
A5 FF 
20 B6 
8E 30 
A2 FF 
B1 FE 
18 

69 02 
30 01 


02 


A6 
a6 


A6 
a6 


&2 


03 


03 


83 
83 


82 


02 


02 


02 
A6 


35 


JMP U1 GO TRY AS U1 COMMAND 
UOCOMM CPXIM $03 MAKE SURE HAVE THREE PARMS 
BNE COMERR BRANCH FOR ERROR IF NOT 


® NOW COMPUTE THE ADJUSTMENT INCREMENT 


SEC SET BORROW 

LDA Pb GET LOW-ORDER "TO" 

SBC PIL CALC DIFFERENCE 

STA ADJUST SAVE IN PAGE ZERO LOW-ORDER 
LDA = P2H SAME FOR HIGH-ORDER 

SBC PITH 

STA ADJUSH LT GOES LNTO PAGE ZERO ALSU 


* NOW PUT PROGRAM POINTER TU PAGE ZERO 


JSR P3SCR 
SUEDESASERESTRAENERNODREGR EDEN ESSERE HERA NAHE TERE EE TR 
® GET AN OPCODE HERE a 


SUHSRAKARKATEKERA THON PARHE RHE RESTRASTHARS TARGA REDE R 


GETOP JSR  DETLEN FIND OPCODE LENGTH AND TYPE 
BMI TRIPLE MINUS IS LENGTH 3 OR BAD TYPE 
BEQ BRANCH ZERO IS A BRANCH 


HHRSRSEERAKAKSKSEAKES SHAKARTTASRSHRSSRIKA HEHEHE RNE NEES SE 


# HERE WE HAVE TO SKIP FORWARD TO NEXT OPCODE * 
SUES OREN ENSE RENEE HENGE NE EOS ROE EEE Oe ae 


SKIP1 JSR ADVANC 
BEQ GETOP AND THEN GO GET THE NEXT OPCODE 


ESSERSFTLL EL SAASVEKTERKERSTRAERKKARSAVEAHKKCSSHRAEE SHER E 


* GOT A 3 BYTE OPCODE / ILLEGAL / OR END (SPECIAL) # 
FOG O0 HES EOE RHE ERE Ee 


TRIPLE INY BUMP Y BY ONE 
BEQ FIX3BY IF NOW ZERO IT IS A 3 BYTER 


QUITDO JSR CRLFSZ OUTPUT LAST ADDRESS 
JSR SPACE FOLLOWED BY A SPACE 
LDYIM $00 AND THE OPCODE 
LDATY CURAD 
JSR OUTBYT 
CLC CLEAR THE CARRY 
RTS AND RETURN TO SYSTEM 
FIX3BY INY MAKE Y=1 NOW 
LDAIY CURAD LOW-ORDER PART OF ADDRESS 
TAX PUT INTO X 
INY NOW MAKE Y=2 
LDAIY CURAD HIGH=-ORDER PART OF ADDRESS 
JSR  ADJST GO CHANGE ADDRESS IF NECESSARY 
STAIY CURAD PUT HIGH-ORDER BACK 
DEY MAKE Y=1 
TXA LOW-ORDER TO A 
STAIY CURAD PUT IT BACK ALSO 
JMP SKIP1- GO SKIP FORWARD TO NEXT OPCODE 


SHASHAHASHSAHHONGESESESHE SSUES SENS ADELTASR EELS SECTES CEES 
® GOT A BRANCH - HAVE TO CHECK 


# BOTH "TO * AND "FROM" ADDRESSES 
SSHSSSUESHSEHSASSHSLTRTSTRATCE ELA REREHSESESRA RE RARE SE ES 


BRANCH INY MAKE Y=1 . 
LDX CURAD GET CURRENT LOCATION LOW-ORDER 
LDA CURADH AND HIGH-ORDER 
JSR ADJST FIX IT IF NECESSARY 


STX SCRO SAVE LOW-ORDER FOR NOW 
LDXIM $FF §§ SET FLAG FOR BACK REFERENCE 
LDAIY CURAD GET RELATIVE BRANCH AMOUNT 
CLC 

ADCIM $02 ADJUST THE OFFSET 

BMI OVER BRANCH IF BACKWARDS BRANCH 


The addresses | used for the high and 
low trace limits are entries in the jump 
table. | picked these for two reasons. 
The first Is that | don’t use the jump 
table, so am not worried about changing 
it. The second is slightly more import- 
ant. If you will note, the default values 
set In these locations during system 
reset turn out to cover normal user RAM. 
This means | don't have to worry about 
making sure they get set every time | 
reset the system. 


There are a number of obscure SYM 
monitor routines used here, and some 
explanation of their function is in order 
now. Where possible, the names corres- 
pond to names in the monitor listing. 


The routine P3SCR takes the two 
bytes from the P3 area and moves them 
to page zero locations $FE and $FF for 
indirect addressing. P2SCR does the 
same thing, but with the P2 data instead 
of P3. To my knowledge, there is no 
P1SCR or equivalent. 


CRLFSZ Is a very handy routine that 
outputs a carriage return, a line feed, 
and the contents of $FF and $FE (i.e. the 
current address). The routine INCCMP 
does a 16 bit add of 1 to the contents of 
CURAD, and compares the result to the 
value of P3. The compare is ignored in 
the relocate program; but for the lister, 
P3 has the program ending address so It 
knows when to quit. There is a reverse of 
this routine, called DECCMP, that sub- 
tracts 1 and does the compare. It isn’t 
used in these routines, but might be han- 
dy some time. 


There are two other SYM monitor loca- 
tions used which are not labeled monitor 
addresses. The ERNOCRLF label is a 
few instructions into the ERMSG rou- 
tine. It is after the carriage return and 
line feed subroutine jump. Unfortunate- 
ly, where | enter, ERMSG has already 
pushed Aon the stack, so always JMP to 
it from a subroutine and let it do the 
return from your subroutine, or else your 
stack will get out of sync. 


The last address | call OBRTN. | use it 
in the extended trace. It is actually the 
last couple of instructions of the normal 
trace routine. It does a check of the carry 
and continues tracing if the carry is 
clear; otherwise it returns to the monitor. 
This works out conveniently since the 
routines INSTAT and DELAY return with 
the carry set if a key is down or the break 
key on the terminal has been pressed. 


The remaining addresses and routines 
used In the programs are defined ade- 
quately In the SYM manual, so | won't 
bother discussing them here. 


The relocate program should not be 
difficult to follow. The program is made 


f 


0297 
0298 
029B 
029C 
029E 
029F 
02a2 
02a4 
0247 
02a8 
02a9 
O2AA 
O02AB 
O2AE 
02B0 
02B3 


02B6 
02B8 
O2BA 
O02BD 
O2BF 


. 02C2 


02c4 
02Cc5 
02C6 
02C7 
02C9 
O2CA 
02CB 
02cD 


02CE 
02D1 
02D3 
02D4 
02D7 
O2DA 
02DD 


E8 
8E 
18 
65 
AA 
AD 


65° 


20 
CA 
CA 
8A 
38 
ED 
91 
20 
kC 


c9 
BO 
cD 
DO 
EC 
90 
46 
8a 
18 
65 
AA 
68 
65 
60 


4D 
10 
48 
20 
20 
4C 
60 


O2DE C9 
02E0 DO 
02E2 E0 
O2E4 FO 
O2E6 38 
02E7 60 
O2E8 20 


O2EB AD 
O2EE 8D 


31 a6 


CE 02 
59 02 


80 
13 
4F A6 
03 
4B A6 
09 


FC 


FD 


31 A6 
OA 


16 83 
42 83 
77 61 


15 
ou 
02 
02 


9¢ 82 


58 a6 
31 a6 


02F1 20 16 83 


INX FORWARDS - MAKE FLAG ZERO 
OVER STX SCRi SAVE THIS ALSO 

CLC 

ADC CURAD CALCULATE "TO" LOW-ORDER 

TAX PUT INTO X 


LDA SCRi 00 OR FF, REMEMBER? 
ADC CURADH CALCULATE "TO" HIGH-ORDER 
JSR ADJST FIX IT IF NECESSARY 


DEX TAKB BACK OFFSET 

DEX 

TXA PUT LOW-ORDER BACK INTO A 
SEC RE-CALCULATE RELATIVE BRANCH 
SBC SCRO 


STAIY CURAD AND PUT IT BACK 
JSR  SIGNCH GO CHECK FOR SIGN CHANGE 
JMP SKIP1 GO SKIP FORWARD TO NEXT OPCODE 


® EXAMINE ADDRESS AND ADJUST IT IF NEEDED 
* HIGH-ORDER IS IN A 


* LOW-ORDER IS IN X 
SECESEKERAAAFASSS TERETE LTTE SHES RRHE RARER EEE SRE Rese ES 


ADJST CMPIM $80 MAKE SURE REFERENCE NOT TOO FAR 

BCS OUT DONE IF TOO HIGH 

CMP PIH CHECK HIGH-ORDER FIRST 

BNE TEST2 BRANCH IF NOT EQUAL 

CPX PIL EQUAL - NEED TO CHECK LOW-ORDER ALSO 
TEST2 BCC OUT BRANCH IF LOW 


PHA ELSE SAVE HIGH-ORDER ON STACE 

TXA PUT LOW-ORDER INTO A 

CLC 

ADC ADJUST ADD LOW-ORDER ADJUSTMENT 

TAX PUT BACK INTO X 

PLA PULL HIGH-ORDER BACK OUT 

ADC ADJUSH ADD IN HIGH ORDER ADJUSTMENT 
OUT RTS AND RETURN 


SHSKSLESSHTE STEHT RASESTSES THES SREKSHET SARA KSESLESSSSEEE 


® CHECK TO MAKE SURE SIGN 


* BEFORE BRANCH IS SAME AS AFTER 
SUSASHSNELSASHHERATHHUAHEELESEHESATRATRREE ELSE RAE HESEED 


SIGNCH EOR SCR1 SEE IF SIGNS ARE THE SAME 
BPL SIGNOK BRANCH IF THE SAME 
PHA SAVE "A" ON STACK 
JSR CRLFSZ OUTPUT CURRENT ADDRESS 
JSR SPACE AND A SPACB 
JMP ERNOCR AND ERROR MESSAGE 

SIGNOK RTS RETURN IF SIGN IS OK 


SHRSSTAGTSCES KATH FSASKERES STEARATE AAHVEAKSES ESOL ETEO HERE ES 


® SYM-1 FUNCTION - MINI LISTER 
# BY: NICK VRTIS -- LSI/CCSD -- APRIL 1979 
¢ 


* LIST A PROGRAM BY INSTRUCTION PER LINE 
a 


® INPUT PARMS: 

* PARM1 — PROGRAM STARTING ADDRESS 

* PARM2 + PROGRAM ENDING ADDRESS 
SHUSEHHTSSSEAHHLEHSSESASE SERS THHEESEHRES ESSER EEEE ESSE Ee 


U1 CMPIM $15 MAKE SURE ON RIGHT COMMAND 
BNE UiERR BRANCH IF WRONG 
CPXIM $02 MAKE SURE 2 AND ONLY 2 PARMS GIVEN 
BEQ UiSTRT BRANCH TO START IF CORRECT 
UIERR SEC 
RTS 
UISTRT JSR P2SCR SET UP BEGINNING ADDRESS 


SHESSSASSTTS SSS SHLESHSSES SHAS SRFHKSTA SL ASAKHETSLANAES ES 


@ LIST PROGRAM EITHER 1 AT A TIME OR "MAXRC" AT A TIME 
SHCLASHTRSSSAETHSESES TESS CHA SHAE SEERA ERECHE HABE SEEE Ee 


LISTER LDA MAXRC # OF LINES CONTROLLED BY "MAXRC" 
STA COUNT SAVE IN SCRATCH AREA 


LISTLP JSR CRLFSZ PUT OUT CURRENT ADDRESS 


possible by the subroutine DETLEN. | 
have to give credit to Jim Butterfield and 
The First Book of KiM for that routine 
and for most of the relocate program. 
DETLEN not only determines the instruc- 
tion jength, but also classifies it as one 
of four types: a branch (Y=0) an ab- 
solute address reference (Y = FF) an “‘in- 
valid” instruction (Y = FE) and all others 
(Y =number of bytes in the instruction). 


The invalid opcodes detected are only 
those with bits 0 and 1 on. This is not all- 
inclusive, but it does cover quite a few of 
the undefined opcodes. The normal pro- 
cedure for operating the program is to 
insert an FF after the last program state- 
ment, since the relocate program stops 
when it encounters an “invalid” opcode. 


This sometimes catches an attempt to 
relocate a data area Instead of a pro- 
gram, which is a definite no-no. The pro- 
gram can’t tell the difference between 
most data and instructions, so make 
sure you stop it before it tries to ‘“flx” 
the “addresses” in your data. If you get 
into the habit of collecting your data 
areas in one piace, your programs will be 
easier to relocate. 


If you follow the code, you will see 
that there Is a lot more work involved in 
relocating a branch instruction than in 
fixing an absolute address reference. 
This is because the program has to com- 
pute the effective FROM and TO ad- 
dresses before it can determine whether 
the relative byte count has changed. 


t have also Included a routine to verify 
that the sign (bit 7) of the new displace- 
ment is the same before and after the 
relocation. This routine was added 
shortly after the first time | relocated a 
backward branch into a forward branch, 
by overflowing the sign, and started ex- 
ecuting one of the 6502’s INMI instruc- 
tlons (INMI = Ignore Non-Maskable In- 
terrupt). 


The program lister was really easy to 
do with subroutine DETLEN avallable. |! 
have a CRT running at 1200 baud, so | 
set the program up to list a screenfull of 
lines at a time, and then wait for any key 
before continuing with the listing. !f you 
have a printer, or run at a slower baud 
rate, you might want to ignore the MAX- 
RC count, do a call to INSTAT after each 
line, and only stop when the break key is 
entered. Remember, INSTAT returns 
with, the carry set If the break is entered, 
and clear otherwise. 


The extended trace routine Is 
probably the hardest to understand. It 
also requires one hardware change as 
outlined In the SYM manual. That 
change is the installation of jumpers 
W-24 and X-25. These enable software 
control of the debug flip-flops, but only 
up to a certain point. 


02F4 
02F7 
O2FA 


02FC 
02PE 
0301 
0302 
0305 


0307 
030A 
030C 
030F 


0311 
0374 
0316 


0318 
0319 


O31A 
031D 
0320 
0321 
0323 


0324 
0326 


0328 
0329 


032B 
032C 
032F 
0332 
0334 
0335 


0337 
033A 
033D 
0340 


20 
20 
AO 


Bi 
20 
c8 
cc 
DO 


20 
BO 
CE 
10 


20 


FO 
DO 


18 
60 


AE 
20 
CA 
DO 
60 


AQ 


42 83 CUROP JSR 


24 
00 


FE 
FA 


32 
F5 


1A 
oc 
31 
EO 


1B 


02 
D3 


32 
Be 


PA 


00 
FE 


37 


03 


03 
03 


03 
A6 
03 


SPACE LEADING SPACE 
JSR  DETLEN MAKE SURE GOT CURRENT LINE LENGTH 
LDYIM $00 INIT ¥ TO ZERO 


CURRLP LDAIY CURAD GET CURRENT OPCODE 
JSR OUTBYT OUTPUT IT 
INY BUMP TO NEXT BYTE 
CPY BYTES SEE IF DONE 
BNE CURRLP LOOP FOR CURRENT NUMBER OF BYTES 


JSR ADVANC ADVANCE TO NEXT INSTRUCTION 
BCS PGMDON SEE IF TO END 

DEC COUNT ELSE DECREASE LINE COUNT 
BPL LISTLP GOT MORE TO DO IF POSITIVE 


JSR INCHR WAIT FOR ANY CHARACTER 
BEQ PGMDON EQUAL MEANS C/R AND HE WANTS QUITS 
BNE LISTER ELSE CARRY ON 


SRERSSSSSHSA GSKA SRSA SAE VELA ARKLT ASHE RSA SPAR KLEATRRATEE 


# END OF PROGRAM ENCOUNTERED - RETURN TO MONITOR 
SEHEESRESONEREREAA ESOS EOE NENT ESOP ONES ES EE DEED ORES REE 


PGMDON CLC CLEAR CARRY FOR OK RETURN 
RTS AND RETURN 


SERSIVESSTESEKEA THREE RSEKTERAASSERARARELEVSEHLA SHEE LS 


# ADVANCE TO NEXT INSTRUCTION 
SFSTHSRACHSHS OSE ESTETT SES ASERREAEEHEE HANS TESE TEES EERE EE 


ADVANC LDX BYTES GET BYTE COUNT 

ADVILP JSR  INCCMP BUMP CURRENT ADDRESS 
DEX DECREASE COUNT 
BNE ADVILP LOOP UNTIL ALL BYTES ARE COUNTED 
RTS RETURN HBRE 


RFSTSHSCLAASKLSLSLATCRLARSSRELERAEKATSRESLSERERE HAAG RETE HH 


® DETERMINE THE INSTRUCTION LENGTH 
SEGSSHREEKODOEEHS SESEESESHESEN HONE NEES REESE EEE REED BEE EE 


DETLEN LDYIM $00 INIT Y TO ZERO 
LDAIY CURAD PICK UP CURRENT OPCODE 


* ENTER HERE IF "A" ALREADY HAS OPCODE IN IT 


SAVE IN ¥ 
GOT SEVEN TABLE ENTRIES TO CHECK 


DETLN1 TAY 
LDXIM $07 


PUT OPCODE BACK INTO A 
TABOUT -01 REMOVE THE DON'T CARE BITS 
EORX TABTST -01 TEST THE REST 
BEQ FOUND BRANCH IF FOUND THE MATCH 
DEX ELSE TRY NEXT ENTRY 
BNE CHKLOP UNTIL ALL ARE LOOKED AT 


CHKLOP TYA 
ANDX 


LDYX TABLEN GET LENGTH FROM TABLE 
STY BYTES SAVE THE LENGTH 

LDYX TABTYP NOW LOAD THE OPCODE TYPE 
RTS AND RETURN 


FOUND 


RESEHSCHTETETTERELER ESAT SEER THEATER RSEREEES OS ER ERAT EEE 
# ALTERNATE USER TRACE ROUTINE 
* 

® BY: NICK VRTIS -- LSI/CCSD FEBRUARY 1979 

" 

* ALTERNATE TRACE ROUTINE TO PRINT ADDITIONAL DATA 
# 


# WILL PRINT PROGRAM COUNTER-Y-X=-A-FLAGS-STACK 
# ONLY PRINTS FOR PROGRAM ADDRESS IN RANGE OF ADDRESS 
* SPECIFIED BY: 
A62C - EXCLUSIVE ENDING ADDRESS 
(SYM DEFAULT IS 0000) 


os * 


When | started writing this routine, it 
was only going to be a one night project. 
It turned out to be a project all right, but 
it was more than one night. In the mean 
time, | found the program bug that caus- 
ed me to write the extended trace in the 
first place. It has been useful on a 
number of later projects, though. 


Let me tell you some things about the 
SYM Implementation of hardware 
debug. It all starts with a non-maskable 
interrupt which is generated at the com- 
pletion of each instruction that is not a 
SYM monitor address, provided that the 
debug flip-flop is set. The 6502 picks up 
the address contained in locations 
$FFFA and $FFFB as the interrupt 
handler. Do to wiring “mirrors”, $FFFA 
and $FFFB are actually $A67A and 
$A67B, which are system RAM ad- 
dresses. 


Normally, this vector contains the ad- 
dress of SVNMI, which is the usual trace 
routine. The first thing the monitor does 
is unprotect system RAM, and then save 
all the registers, flags, and program 
counter in the user register save area in 
system RAM. It then resets the debug 
flip-flop so that it is off. For the extended 
trace, this vector is changed to point to 
another SYM monitor routine that does 
the same things, but exits via an indirect 
jump through system RAM location 
TRCVEC to the user trace routine. 


In theory, this means that the user 
routine should be able to do just about 
anything the monitor can do. The hard 
facts of life are that the debug key 
bounces, and the monitor does not de- 
bounce It before you get controi, but It 
does reset the flip-flop. 


This is no problem if | am in the 
monitor (say, waiting for Input) when | 
press the debug key. Since the monitor 
does not get interrupted, by the time an 
interrupt is generated, the key is through 
bouncing, and only the interrupt is 
generated. 


If, on the other hand, a user program 
is executing and | press the debug key, 
the extended trace routine get control 
before the ‘key has finished bouncing. 
This means that an Interrupt is 
generated within the extended trace and 
it starts tracing itself. 


At first glance, the solution would 
seem the same as for any other bouncy 
input; namely, to walt for it to settle. The 
only problem is that the extended trace 
gets only ONE instruction done before 
the routine is interrupted. The best that | 
could do was check to see if it is tracing 
itself and exit gracefully to the monitor if 
so..Unfortunately, the register save area 
doesn’t contain any more useful infor- 
mation, but then, there is a price for 
everything. 


0341 
0344 


0347 
0349 
0343 
O34E 
0350 
0353 


0355 
0358 
035A 
035D 


035F 
0362 
0365 
0367 
036A 
036D 
0370 
0371 
0373 
0376 


0378 
037B 


037D 


0380 


AE 
AD 


C9 
FO 
cD 
DO 
EC 
BO 


cD 
DO 
EC 
90 


20 
20 
A2 
BD 
20 
20 
CA 
DO 
EC 
FO 


20 
BO 


20 


KC 


59 A6 
5A A6 


2D a6 


2C A6 


BB 80 


# A626 ~- INCLUSIVE STARTING ADDRESS 

# (SYM DEFAULT IS 0000) 

# TRACE VELOCITY IS IGNORED IF TRACE IS NOT IN RANGE 
KEYBOARD LS CHECKED AND RETURN 

# IS TO MONITOR IF KEY OR BREAK 


* REGARDLESS OF ADDRESS 
SSUSHERERSATAAATEAANE ONES E SERRE EE REEL EHTS SESE SEER ERE EE 


USRTRA LDX USREGS ALWAYS EXECUTES SO X IS OK 

LDA USREGS +01 A WILL BE OK IF SELF TRACING 
HOSE SOSSSHDEASHRETERELONE SESE SEALE RESEPUEEERER ESTER ESE SS 
* CHANGE THE FOLLOWING INSTRUCTION 
® TO HIGH-CRDER OF PAGE LOCATED ON 
SHESSRTTEAEASLELASRASEEATERORTSSE CANE REE ERE ES EEE EOEE Es 

CMPIM $03 SEE IF TRACING MYSELF 

BEQ RETURN 

CMP THIGH +01 

BNE HI 

CPX THIGH 
HI BCS NOTRAN BRANCH IF TOO HIGH 


PSSA FATSAKSKRS LETRAS RASS SREGL PETS TAATRSRE HLTH ELSE EREE DS 


* IT IS LESS THAN THE UPPER LIMIT 
SFRAESHAASEA ALENT SECS SENEES ESTE CREE ESESEH ORR EEE ESSE EE 


CMP TLOW +01 CHECK AGAINST LOWER LIMIT 
BNE LO 
CPX TLOW 
LO BCC NOTRAN BRANCH IF NOT IN RANGE 
# IT IS IN RANGE ~ OUTPUT GOODIES 
JSR CRLF START ON NEW LINE 
JSR OUTPC 
LDXIM $05 
DSPREG LDAX USREGS +01 
JSR SPACE OUTPUT LEADING SPACE 
JSR OUTBYT NOW THE DATA AS 2 HEX 
DEX 
BNE DSPREG 
CPX TV COMPARE 0 TO TV 
BEQ RETORN EQUAL WILL ALSO HAVE CARRY SET 


# PERFORM THE DELAY ACCORDING TO TV VALUE 


DODELA JSR 
BCS 


DELAY 
RETURN IF KEY WAS DOWN - DON'T CHECK AGAIN 


@ NOT IN RANGE - CHECK FOR KEY DOWN ANYWAY 


NOTRAN JSR INSTAT CHECK FOR KEY DOWN 
* RETURN WITH CARRY ON FOR RETURN TO MONITOR 
® CARRY OFF TO CONTINUE TRACE 


RETURN JMP DBRTN RETURN WILL CHECK CARRY 


* TABLES FOR DETLIN 
SERESELSLESEKSSHHESSRRTSSTTAS ACES SHES GEERHHEHETESECEEED 


TABOUT $0c MASKS TO REMOVE DON'T CARE BITS 
$iF 
$0D 
$87 
$iF 
$FF 
$03 
$0c 
$19 
$08 
$00 
$10 
$20 
$03 
$02 


TABTST 


TABTYP 


. 0392 FF : $FF 
Now that we have that explanation 0393 FF 5 $FF 
out of the way, on to a discussion of the 0394 01 Po $01 
mechanics of the trace routine. Actually, 0395 01 z $01 
the hardest part is making sure the carry 0396 00 = $00 
gets set or cleared, before returning to 0397 FF = $FF 
DBRTN, so we either continue tracing or 0398 FE = $FE 
exit to the monitor. If the program is 0399 02 TABLEN = $02 
tracing itself, or if the trace velocity is 0394 03 = $03 
zero, the return is executed immediately 039B 03 . $03 
after a compare Instruction that resulted OseD of = oO 
in an equal condition which sets the 039E 02 : 302 
carry. 039F 03 z= $03 
If the trace velocity was not zero, then 0340 03 PGMEND = $03 
this routine uses the DELAY routine to PTTiTiriiiiiitiiiiiiiitiiitiliiiitiitiiitiiitiiit iy) 
slow down the execution rate. DELAY # SYM SYSTEM ROUTINE ENTRY POINTS AND RAM ADDRESSES 
even checks the keyboard, via INSTAT, SHATHHSTSSRSRHESSRSES SSAA SESE CSSS SSE STOR ERERHENERAEO ES 
for a break key and sets the carry ap- 
propriately. The check of the carry is 03A1 DBRIN *® $80BB CHECK CARRY & TRACE OR MONITOR 
made after the jump to DELAY so that 03A1 ERNOCR # $8177 "ERXX" W/O CR/LF -- JUMP TO ONLY 
the program doesn’t check the keyboard 63A1 P2SCR #® $829C PUT "PARM2" INTO "CURAD" 
twice. The second check would probably 03A1 P3SCR ® $82A7 PUT "PARM3" INTO "CURAD” 
get the Opposes Hf tN ay Ne a masa aaerar 
gD 
or one tes Keypads since KEYQ de 0341 OUTBYT * $82FA PRINT A (TWO HEX DIGITS) 
03A1 CRLFSZ ® $8316 OUTPUT CR/LF AND "CURAD* 
You should also note that even if the Oat aaLE . HE OUTPUT CHL 
acres beaseek one STAT aoe 03A1 DELAY ® $8354 DELAY ACCORDING TO TV 
way. to check for a key down or the o3a1 anaes ANY cet sown) KEY STATUS (BREAK 
break key. This is so you can interrupt a 
program outside your requested trace 0341 INCHR * $6418 GET ASCII CHAR VIA “INVEC" 
range. Remember, the debug key is Tir tiiitiiiirititiitittitiiiiiiiiiiitii Jit yy 
already causing the extended trace to be 
invoked, so you can’t stop the program 0341 TLOoW & $a626 TRACE LOW ADDRESS 
with that. 03a1 THIGH & $a62C TRACE HIGH ADDRESS 
0341 scro #& $A630 SYSTEM SCRATCH AREA 0 
The final thing to remember about the 0341 SCRI ® $A631 SYSTEM RAM SCRATCH AREA 1 
trace routine is that even for those ad- O3A1 BYTES ® $4632 SYSTEM RAM SCRATCH AREA 2 
dresses you have not selected, there are 0341 COUNT #® SCR1 USE SCRATCH AREA 1 
an awful lot of instructions executed 03a1 P3L ' $A64A INPUT PARAMETER VALUES 
before that fact is determined. Effective- 0341 P3H* $A64B 
ly, your cycle time has slowed drastical- O3a1 P2L $Aa64C 
ly when debug Is on, and | mean by 031 Poo Sacnp 
orders of magnitude. This can be sur- ook aig e caer 
prising at times, especially when the a 
code you are bypassing initializes a two 0341 ENDAD P3L ENDING ADDRESS IS IN P3 AREA 
thousand byte array. 0341 TV a $0656 TRACE VELOCITY 
Q3A1 LSTCOM ® $4657 COMMAND END INDICATOR 
Last but not least, | would like to ex- O3a1 MAXRC # $4658 MAXIMUM RECORD/BYTES FOR OUTPUT 
piain the strange code that appears at O34 USREGS ® $4659 TRACE HOLD OF USER REGISTERS 


the start of the program. It comprises 

the ASCII commands that set up the 

user command vector, the MAXRC byte 

count, and the extended trace routine SYMBOL TABLE 2000 21C8 

addresses. By putting them there, | only ADJSI 0286 ADJUSH OOFD ADJUST OOFC ADVANC O31A 
have to remember one address instead ADVILP 031D BRANCH 0283 BYTES A632 CHKLOP 032B 
of half of a dozen. By using the SYM ex- COMERR 0231 COUNT A631 CRLF 834D CRLFSZ 8316 
ecute command, all the addresses get CURAD OOFE CURADH OOFF CUROP O2F4 CURRLP 02FC 
set up for me. DBRTN S80BB DELAY 835A DETLEN 0324 DETLNQ 0328 
DODELA 0378 DSPREG 0367 ENDAD A6HA ERNOCR 8177 
FIXSBY 0270 FOUND 0337 GETOP 0252 HI 0353 
INCCMP 82B2 INCHR 8A1B INITCO 0200 INSTAT 83866 
when you relocate these routines. Also LISTER 02EB LISTLP 02F1 LO 035D LSTCOM A657 
MAXRC A658 NOTRAN 037D OUTBYT 82FA OUTPC 82BE 

remember that the addresses must be in 
: OUT 02CD OVER 0298 PGMDON 0318 PGMEND 03A0 

ASCIl, not in hex. There is atso one place 
. PQH AGAF PQL AGRE PRH A64D PRL A64C 
in the extended trace routine that must PRSCR 829C PSH AG4SB PSL AGMA PSSCR 82A7 
be changed to equal the high order byte QUITDO 0261 RETURN 0380 SCRP 4630 SCRQ A631 
of the address the routine resides at. SIGRCH O02CE SIGHOK 02DD SKIPQ 0259 SPACE 8342 
This is so the routine can tell if it Is trac- TABLEN 0399 § TABOUT 0383  TABTST 038A TABTYP 0391 
ing Itself. It also means the program TESTR O2C2 $$ THIGH A62C TLOW A626 TRIPLE 025E 
won't trace any other program on that Vv 4656 UP 0233 UPCOMM 023A Ua 02DE 
page. UGERR 0256 UQSTRT 02E8 USREGS A659 USRTRA 0341 


Don’t forget to change the addresses 
referénced in the execute commands 
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SYM - 1 BASIC “GET” Command 


Everything you need to know to Implement the ‘GET’ 
function in SYM - 1 BASIC. The use of the GET function is 
discussed and several examples are provided. 


The SYM-1 BASIC interpreter provides 
for an unused “GET” token which always 
produces a Function Call error (FC) 
whenever it is encountered in a program. 
GET is an alternate form of INPUT except 
that it only inputs one character for each 
call and that one character can be any 
keyboard character including control 
characters and lower case letters. The 
first section of this article describes a 
simple procedure to implement this very 
useful command. The second section ex- 
plains in detail how it works and the the 
third section offers some examples of 
BASIC subroutines utilizing the GET com- 
mand. 


Section One 
implementing the GET Command 


Step 1: Deposit and Verify the code in the 
OBJECT LISTING. If it consistently will 
not Verify, read Section 2 before pro- 
ceding. 


Step 2: Enter the following monitor com- 


mand: 
SD A600,A664 


Step 3: Jump to BASIC: 
JO 


Step 4: Enter and RUN a BASIC program 
such as: 

100 PRINT “HIT ANY KEY:” 

110 GET A$ 

120 PRINT ASC{A$) 

130 GOTO 100 


The GET command is always used to 
input a character string which will nor- 
maily have a length of one. (A double- 
quote (‘') or a NULL results in a length of 
zero which causes an FC error to occur. 
See Section 2.) Of course, the string 
variable can de either simple or an ele- 
ment of a matrix, but only one variable is 


allowed for each GET and It cannot be us- 
ed in a Direct Command. When GET is en- 
countered in a running program there is 


no prompt ‘“?” and prompt strings are not 


allowed. This is intentional to allow for 
several characters in a row to be typed in, 
in response to several GET’s or for a loop 
which examines the characters for errors 
as they are typed. It is therefore normal to 
precede GET with a PRINT statement to 
serve as a prompt. 


Section Two 
Detailed Explanation of 
GET impiementation 


The assembly language program to im- 
plement GET is stored in two sections of 
RAM that are unused by both the Monitor 
and BASIC. The first of these is the first 
32 bytes of System RAM which are nor- 
mally allocated as the Scope Buffer but 
are not changed in any way as long as 
none of the hex keypad buttons are push- 
ed (except, of course, RST and DEBUG 
ON and OFF). These 32 bytes are located 
at $A600-$A61F. The second section of 
RAM is the 16 bytes located on page zero 
at $E8-$F7. The code can be entered into 
your SYM-1 and verified using the object 
code ‘listing or if you have Synertek’s 
RAE-1, you can enter the source code as 
it appears in the assembly listing. After it 
is assembled the block of code belonging 
on page zero must be moved there from 
page $0F with the monitor command: 


B E8,FE8-FF7 


The code can not be assembled directly 
on page zero since RAE-1 aiso uses that 
block of memory. If you happen to have 
EPROM in your system you can also 
relocate the code there (delete line 300 
JMP GET.COMD.3). In order to activate 
GET, the System Output Vector ($A664,5) 
must be changed from Its present value, 
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assumed to be the Terminal Output 
routine (TOUT = $8AA0), to the GET com- 
mand processor (GET.COMD = $A600). 
This vector can be changed at the 
monitor level with the simple command: 


.SD A600,A664 


or it can be done In BASIC with: 


POKE 42596,0: POKE 42597, 166 


which can be either a Direct Command or 
part of a program. If you decide to 
relocate the code to some other address 
than $A600 then be sure to use the cor- 
rect address when changing the System 
Output Vector. Please be aware of the 
fact that the System RAM is write pro- 
tected after a warm start to BASIC (G 0) 
until after a LOAD or SAVE command Is 
attempted (if you have the new Monitor 
ROM) or until a call to ACCESS is made 
some other way, for example, with 
QQ = USA(&“8B86",0) or unless the 
jumper at 45-MM is removed. Incidentally, 
since BASIC passes the program size and 
file 1D information to the Tape routines 
through the System RAM, the first LOAD 
or SAVE after a warm start won’t work: 


To understand how the GET command 
is processed look at the assembly 
language listing. Each time BASIC at- 
tempts to print any character, this routine 
will be entered. If the character to be 
printed is a carriage return, which is the 
case when any error is encountered, then 
further testing is performed to see if it is a 
Function Call error and then If it was 
caused by a GET token. ff any of the pro- 
per conditions are not met then a jump is - 
made ta the Terminal Output routine or to . 
whatever special output routine you ‘ 
might have. 


Assuming that all the conditions for 
the GET command are met, then twelve 
bytes are taken off the stack to account 
for the series of JSR’s involved in printing 
the error message. Next, the BASIC Input 
Bufter is set up as it would be if a single 
character were entered In response to an 
INPUT command. However, the routines 
that normally bring characters into the In- 
put Buffer are bypassed because they ig- 
nore all control characters (except BELL) 
and change lower case letters to upper 
case. Instead, the Input Buffer is loaded 
directly by the GET command processor 
so that al] characters will be allowed. In 
addition, a double-quote is automatically 
inserted before the typed character so 
that commas, colons and spaces will also 
be properly interpreted. After the typed 
character a zero Is Inserted which is the 
End-of-Line token. There remains an am- 
biguity over two characters which can be 
typed In, namely, NULL and double-quote 
(), both of which will be interpreted as a 
string of zero length. The NULL looks like 
the End-of-Line token and the double- 
quote jiooks like the End-of-String 
character. If you are not concerned with 
this ambiguity in your application, skip 
the remainder of this section. 


There are two ways to avoid the am- 
biguity between double-quote and NULL. 
First you can change the assembly 
language instruction on line 350 from 
AND #$7F to ORA #$80 and then subtract 
128 from each character after the GET 
statement. Example: Change BASIC pro- 
gram line 630 to: 


630 CHAR$ = CHR&RASC(CHARS)-128) 


The second way to handle this is by in- 
serting three instructions between tines 
350 and 360 of the assembly program as 


follows: 
CMP #$22 
BNE +2 
ORA #$80 


But this will require relocating the code to 
accomodate the additional bytes of pro- 
gram. (Due to a minor error in RAE-1, the 
branch must be entered as BNE = +3.) In 
this case, only a double-quote has its 
most significant bit set. It is not 
necessary to subtract 128 as long as you 
treat the ASCII code for double-quote as 
162 instead of 34. Also, line 630 of the 
BASIC program should be deleted. 


Section Three 
Examples of Using GET 


The remainder of this article will 
describe several BASIC subroutines 
which can be used to simulate the INPUT 
function for integer, numeric and string 
variables. Also described is a means to 
disable the BREAK key to make it possi 
ble to write programs that are incapable 
of being clobbered by the operator. This 
is an especially important feature when 


OBJECT LISTING 


»¥ ES-F?7 
O0ES 20 58 SA 29 
OOFO 1D. AO 00 34 
0650 
s¥ A600-AGIF 
AGOO CO OB BO 
A608 CO 36 FO 
A610 8A 69 OB 
A618 1D AD 22 
oDDE 


08 
03 
AR 
35 


running programs for the novice. If you’ve 
had the frustrating experience of trying to 
leave your computer in the hands of the 
kids to play games only to have them 
forget to press RETURN after every input 
and not press RETURN without some in- 


LIST 


rr 85 IF Res 0 
20 4C ER 69:50 


ES 838 BD 046A 
4C AO SA BA: 33 
SA AS 2C 85°1F 
1E 4€ ES 00> DE 


pul, tnen you know what a boon this can 

be. it can save you from having to reload 

a program because the kids have 

unknowingly deleted lines of program by 

typing in numbers while in Command 
evel. 


36 PROMPTS = “INPUT A STRING: ~ 


11 GOSUB 660 
12 PRINT PHRASES 
13 6OTO 10 


20 PROMPTS = “INPUT A NUMBER: “ 


21 GOSUB 300 
22 PRINT NUMBER 
23 6G7T0 20 


30 PROWPTS = “INPUT AN INTEGER: “ 


31 GOSUB 400 


SS REM ere SUBROUTINE TO ACTIVATE “GET- ROUTINE eee 
160 GQ = USR(e"SB86"20>: REM ALLOW ACCESS TO SYSTEM RAM 
110 POKE 42596-0: POKE 425975166: REM CHANGE DUTPUT VECTOR TO “GET” 


120 RETURN 


185 REM eee SUBROUTINE TO DISABLE “BREAK” KEY ooo 


198 REM SIMULATE MONITOR COMMAND: 


»SD 862D» A667 


260 OO = USR(2°SBE6"+ 6): REM ALLOW ACCESS TO SYSTEM RAM 

210 POKE 42576:103% POKE 425717166: REM STORE INSVEC+! IN P3 

220 POKE 42572945: POKE 425731134: REM STORE $662D <(CLC-RTS> IN F2 
‘230 GQ = USR(&"S61D"»0.: REM EXECUTE STORE BOUBLE BYTE COMMAND 


240 RETURN 
265 REN 


eee SUBROUTINE TO ENABLE “BREAK" KEY ooo 


295 REM SIMULATE MONITOR COMMAND: .SD SB3C+AG67 

308 G2 = USR«(E"SBE6"5 02: REM ALLOW ACCESS TO SYSTEAR RAN 

310 POKE 4257091033 POKE 4257151663 REM STORE INSVEC+1 IN F3 
320 POKE 42572766: POKE 425737139! REM STORE SEB3C CTSTAT) IN Pe 
330 GO = USR(L“S61D"» 6)! REM EXECUTE STDRE DOUBLE BYTE COMMANE! 


340 RETURN 


395 REM eee SUBROUTINE TO INPUT AN INTEGER ooo 
400 GOSUB S00! REM INPUT FR NUMBER 


410 IF ABS (NUMBER) >» 32767 THEN 400: 


REM REPEAT IF GUT OF RANGE 


420 NUMBER” = INT (RES (NUMBER) > OSEN (HUMBER) 2 REM DROP FRACTIONAL PART 


430 RETURN 


495 REM eo SUBROUTINE TO INPUT A NUMBER ooo 
300 GQOSUB 600: REM INPUT A STRING 
310 NUMBER = VAL (PHRASES): REM CONVERT STRING TO NUMBER 


320 RETURN 


S95 REM eee SUBRDUTINE TO INPUT A STRING ooo 
600 PRINTS PRINT PROMPTS): REM PRINT PROMPT ON NEU LINE 
610 PHRASES = “"t REM DELETE PHRASE 


620 GET CHARS 


@30 IF LEN(CHARS) = 8 THEN CHARS = CHRS(34)8 REM CHANGE NULL STRING TO “ 


640 If ASC (CHARS) <> & THEN 680: REM BRANCH IF MOT BACK-SPACE 
650 IF LENCPHRASES) © 0 THEN PRINT RIGHTS (PROMPTS: 125: GOTO 626 


660 PHRASES = LEFTS (PHRASESs LEN (PHRASES) -1)2 REM DELETE LAST CHARACTER 


670 PRINT ~ "5 CHRS<«82%% GOTO 620 
660 IF ASC(CHRRS> = 10 THEN 6008 REM START OVER IF LINE-FEED 


690 IF ASCCCHARS> s& 13 THEN PRINT?# RETURNE 
700 PHRASES © PHRASES + CHARS 


710 GOTO 620 


793 REM eee SUBROUTINE TO DE-ACTIVATE “GET” ROUTINE eee 
800 GG = USR<(L"OS86"20>t REM ALLOW ACCESS TO SYSTER RAM 


810 POKE 425965160: POKE 42597» 138: 


S20 RETURN 
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REM DONE IF CARRIAGE RETURN 


REM CHANGE OUTPUT VECTOR TO “TOUT™ 


The BASIC program lisitng contains 
two parts. The first part (lines 10-35) con- 
tains sample drivers for the three types of 
INPUT’s and the second part (lines 
95-820) contains the actual subroutines. 
The first subroutine (GOSUB 100) 
changes the output vector to point to the 
assembly language program which of 
course must be loaded prior to entering 
BASIC. The last subroutine (GOSUB 800) 
can be used to switch the output vector 
back to its normal state. The second and 
third subroutines can be used to disable 
and enable the BREAK key. These 
routines use part of the Monitor Store 
Double Byte Command to change the in- 
put Status Vector because It Is Impossi- 
bie to do the same thing in pure BASIC 
since the status would be checked bet- 
ween the two POKE’s and would result in 
the program going to an undesired place. 
The BREAK is disabled by simply poin- 
ting it to a routine that always returns a 
status clear. 


The subroutine beginning at line 600 
simulates the INPUT command for a 
character string. The first thing it does is 
print a prompt string which should be 
defined prior to calling the subroutine. 


ASSEMBLY LISTING 


0010 GET. TOKEN .BE S98 
0020 FC.ERROR -DE 308 
0030 INPUT.COMD .DE SC9OBS 
0040 INP. BUFFER .DE S1E 


The name of the prompt string is PRO- 
MPTS$ (or PR$). Next, the string which wlll 
contain the typed characters is cleared. 
Its name is PHRASE$ (or PH$). Then a 
loop Is entered which GETs the typed 
characters one at a time and examines 
them before it puts them into the 
PHRASES string to see if they are any of 
the foliowing special characters: 


1. NULL (same as double-quote) is 
changed to ”. 


2. Back Space deletes previous 
character. 


3. Line Feed deletes entire line. 
4. Carriage Return ends the input. 


No test is made to limit the number of 
characters to 255, Therefore, typing in 256 
characters is a way to “BREAK” a pro- 
gram that has the BREAK key disabled 
ace it will cause a Long String Error 
(LS). 


The subroutine beginning at line 500 
simulates the INPUT command for a 
number. it does this by calling the string 


BASIC “GET” TDKEN 

BASIC “FC ERROR” TOKEN 

BASIC INPUT COMMAND INTERPRETER 
BASIC INPUT BUFFER 


0eS50 TOUT »DE SaAR0 MONITOR TERMING|, OUTPUT RDUTINE 
Sonn INTCHR DE S8ASs8 MONITOR INPUT TERMINAL CHARACTER 
6060 -OS 
0090 - BR SAGE00 
6100 
bi2e 3 ooo PROGRAM TO IMPLEMENT SYA-1 BASIC “GET” COMMAND ese 
0120 
A6E00- Co OD 0130 GET.COMD CRP #SOD TEST FOR CARRIAGE RETURN 
R60e- DO 6 0140 BNE GET.CDMD.1 AND BRANCH 1F NOT. 
A604- EO 08 01350 CPx SFC. ERROR TEST FOR FC ERROR AND 
F60E—- DO 04 0160 BNE GET.CDMB. 1 BRANCH IF NOT. 
RE08- CO 36 0370 CPY @L»> GET. TOKEN+GET. TOKEN TEST FOR GET AND 
REOR- FO 03 0180 BE@ GET.COMD.2 BRANCH IF SO. 
M60C~ 4C AO GA 0190 GET.COMD.1 JP TOUT IF MOT> CONTINUE OUTPUT. 
62600 
A6OF- BA 0210 GET.COMD.2 TSx TAKE 12 BYTES OFF STACK. 
A610- SA Ge26 TRA ALREADY IN BINARY MODE AND 
fb11l- 69 OB 0230 ABC 812-1 CARRY SETs SO ADD 11. 
f613- RA 0240 TAX 
f634— OF 62350 TRS 
FO15- AS eC 0260 LDA &“>s STGRE COMMA IN FRONT OF 
A617- 65 1D 0270 STA INP. BUFFER-1 BUFFER (NEEDED BY BASIC). 
&6139- AD 22 o260 LDA e’~ STORE QUOTE IN BUFFER TO 
A61B- 85 1E€ 0290 STA INP. BUFFER ALLOW AUTD STRING INPUT. 
A6ID- 4C EB 00 6360 Jnr GET.COMD.3 CONTINUE ON PRGE ZERO. 
0310 
03e6 BR SES STORE SES CODE AT SFES> 
03350 MC SFES MOVE WITH! & EGsFES-FF7 
OOES- 20 58 8A 0340 GET.COMB.3 JSR INTCHR INPUT A CHARACTER. 
OUEB- 29 7F 0330 AND #$7F CLERR PARITY BIT. 
GOED- 35 IF 0360 STR INP. BUPFER+I1 PUT IT IN. BUFFER. 
GOEF- Rez 1D 0370 LDX #INP. BUFFER-1 % NEEDED BY BASIC. 
GOFi- AO 00 0360 LDY «0 ¥=20 NEEDED Br BASIC. 
OOF s- U4 20 0390 STY INP. BUFFER+2 END-GF-LINE TOKEN. 
OOFS- 4C EA CS 6400 JP INPUT. COND+49 CONT INTO BASIC. 
04:0 - EN 
LABEL FiLet C€ + = EXTERNAL J 
“GET. TOKEN@=009B8 7FC. ERROP=0008 “INPUT. COMD=C 989 
7 INP. BUFFER@001E 7 TOUT=8AR0 ZINTCHRSSASE 
GET. COMD=AS 00 GET. COMD. 19A60C GET.COMD. 2=A6 OF 
GET. COND. 38 00€8 
7/0000» OOF Ss OFFS 


? 
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input subroutine and using the BASIC 
VAL function to put the string into the 
variable called NUMBER (or NU). If the 
string does not convert correctly into a 
number, no error is generated, instead 
that portion of the string up to the error is 
used (or zero if it is completely wrong). 
However, if the magnitude of the number 
is too large for BASIC an Overflow 
Error(OV) results. This is another way to 
“BREAK” a program even with the 
BREAK key disabled. 


The subroutine beginning at line 400 
simulates the INPUT command for an in- 
teger. It does this by calling the number 
input subroutine and using the BASIC 
INT function to convert it to an integer 
called NUMBER¢e (or NUe). If the number 
is too large to be an Integer, the prompt is 
repeated to avoid an error. Also, the frac- 
tional part of a negative number Is drop- 
ped instead of rounding up to the next 
larger integer (absolute value). 


Obviously, similar sorts of routines can 
be written to accomodate any particular 
requirements you might have. One word 
of caution: at the lower baud rates BASIC 
can’t keep up with a fast typist. Using the 
BREAK disable subroutine will keep the 
program from aborting but might result In 
incorrect characters being read. How- 
ever, if they are read Incorrectly they wiil 
also be echoed incorrectly, so backspace 
over any errors and retype. At 4800 baud, 
BASIC can easily keep up with all but the 
fastest typist. At 110 baud it isn’t hard to 
get incorrect reads, but even then It’s not 
likely to be a problem with a novice 
operator. However, if you are running at 
110 baud It Is probably because you are 
running on a teletype in which case you 
will have to handie the character deletes 
with something other than a back-space. 


SYMple Memory Expansion 


An 8K SYM from a board small enough to fit In the 
Synertek logo area of a standard enclosure? This in- 
teresting modification may violate good engineering 
practices, but it is difficult to argue with the designer's 


result. 


ae nanan 


Synertek states in their SYM-1 
manual, “it is believed that most users 
of the SYM-1 will ultimately use a TTY”. ! 
disagree. Most users, like me, will! pro- 
bably use some type of CAT terminal. 
The fuil power of the SYM monitor is not 
really appreciated until you connect it to 
a CRT or TTY. No wonder that Synertek 
made such a statement in the manual. 
The addition of a terminal turns the SYM 
into quite a little computer! 


There is only one drawback to adding 
the terminal. Once you have it con- 
nected, you'll need to expand the SYM’s 
memory to keep up with the larger pro- 
grams, interpreters, and assemblers that 
you are sure to come up with! 


Tiny Basic 


One of the easiest and least expen- 
sive additions that can be made to the 
SYM, after the addition of a TTY or CRT, 
is Tom Plittman’s Tiny Basic. It is only 
$5.00 In paper tape format from him at 
Itty Bitty Computers, PO Box 23189, San 
Jose, CA 95153. Several ASK dealers sell 
it on cassette for $10.00. Get Version 
V.1K for the 6502 that starts at 0200 hex. 
It will fit from $0200 to SOAFF, leaving 
$0B00 to SOFFF available for programs. 
Since the SYM already includes a Break 
Test routine in its monitor, It is even 
simpler to interface Tiny Basic to the 
SYM than to the KIM. Make the following 
patches: 


0206 4C 1B 8A JMP INCHR 
0208 4C 47 BA JMP OUTCHR 
0200 4C 3C 8B JMP TSTAT 


| also made the following optional 


changes to my copy: 


020F 08 Changes the character 

correction code to the 

ASCII backspace code. 
0210 40 Changes the line cancel 
code to the “@” sign. 
0971 2A Changes the prompt char- 
acter from “colon” to 
“asterisk”. 


Memory Limitations 


Tiny Basic is a very good interpreter, 
for its size, but onty 1024 bytes are left 
out of the SYM’s 4K RAM for Tiny Basic 
programs. | had an extra pair of 2114s on 
hand after | got Tiny up and running, and 
decided to see if there wasn’t some way 
that | could make use of them. 


| removed 2114s U12 and U13 from 
their sockets, mounted the extra two 
2114s on top of them in the so called 
“piggyback” fashion, and soldered all 
pins of the extra 2114s to the same pins 
on the originals, except that the pin &s 
were left unconnected. 


1 attached 30 GA wire to these pins on 
the two added 2114s, making sure that 
they were well insulated from the pin 8s 
of the original 2114s. The original ICs 
were then plugged back into the SYM 
and a memory test was run. So far, so 
good. 


U1, a 74LS138, is a decoder that 
divides the first 8K of the SYM’s memory 
into 1K blocks. The signals from it that 
correspond to the first four 1K blocks 
are used as the chip select signals for 
the original 2114s. The wires from pin 8 
of the two added 2114s were wired to the 
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fifth signal from U1, which Is at pin 11 of 
Its package. 


Repeating the memory test, | had 5K 
of memory! | had just doubled the 
memory space available for Tiny Basic! 
Could It be expanded further? Perhaps, 
but not this way. The 21148 were too 
close together and got hotter than | 
would like to see them get. 


Bumble Bees Can’t Fly 


The address and data lines from the 
6502 are only guaranteed to drive up to 1 
TTL load and 130 pt of capacitance. No 
buffers exist on the SYM to reduce the 
loading. Adding up the capacitance of 
all the devices already on the SYM that 
are wired to the data and address buses, 
and adding a conservative figure for the 
capacitance of all the PC traces them- 
selves, shows that the 6502 is being 
pushed to its Ilmit already. 


But those values of capacitance from 
the spec sheets are maximum values, 
while the 130 pf is a minimum. Let’s try! 
The goal is to fit it In over the logo and 
Synertek name. 


| bullt up a small perf board with IC 
sockets and wired them together using a 
wiring pencil and 36 GA solder strip- 
pable wire. Nine sockets were on the 
board, and an 18-pin homemade DIP 
plug plugged into the SYM’s U19 socket 
to pick up most of the required connec- 
tions. 


Additional wires were run to the data 
lines at U12, and to the chip select 
signals from U1. It worked! | had an 8K 
SYM! And the board was small enough 


to fit in the area of the Synertek logo and 
name, between U1 and the original 
memory chips. 


Several other SYM owners were very 
interested in my design, even though it 
violates good engineering practices. 
Enough interest was shown to commit 
the schematic of Figure 1 to an artwork 
and make up a few dozen copies of the 
board. This version is much neater than 
the prototype. 


The board is double sided and has 
plated through holes. Two 16-pin DIP 
jumpers connect from it to the SYM’s 
Ui2 and U19 sockets. (Ever try to buy an 
18-pin jumper?) Four wires run from the 
board to pins of U1. U12, U19, and eight 
other 2114s mount on the final board. 


None of the coples bulit to date have 
falled to work satisfactorily, nor does an 
oscilloscope show any degradation of 
the 6502’s signals. My SYM has U20, 
U21, U22, U23, and U28 Installed, so it Is 
close to a worst case. | have had several 
dozen blank PC boards made which | will 
make available to other SYM owners for 
$5.00 each, with instructions. Please in- 
clude aé_é self addressed stamped 
envelopes. 


Results 


1 will have to admit that the added 
board Is an expansion to the SYM. but It 


certainly doesn’t expand its size by 
much, does it? Tiny Basic now has 5K 
for its programs, a pretty respectable 
amount of memory. Synertek’s BASIC, 
which Is excellent, has 7679 bytes free, 
at initialization, instead of 3585. Many of 
the applications that | had only con- 


pins 1, 2, 3, 4, 5, 6, 7, 15, 16, 17, 18 


pins 11, 12, 
13, 14 


pins 9, 10 


pins 11, 12, 
13, 14 


pin 11 


sidered running on my KIM (29+ RAM!) 
system are now being run on the SYM, 
due to the faster tape Interface, suffi- 
cient memory, BASIC in ROM, and the 
capabilities of the SYM’s monitor. 

{t was certainly worth the trouble to 
try, even if bumble bees can’t fly! 
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Figure 1: W7AAY Sym-1 Memory Expansion 


Figure 2: The 8K SYM. 


SYM-1 Staged Loading 
Technique for Segmented 


Programs 


The SYM cassette tape I/O can not ioad continuously 
from 0000 on. The end of page zero and the end of page 
one can not be directly loaded. A program and technique 
are presented which simply get around this situation. 


The basic SYM-1 comes equipped 
with IK of user RAM, most of which can 
be used for program material. This RAM, 
however, because of usage by the 
system monitor, is not contained in a 
continuous block. 


Specifically, the area from roughly 
01D1 to O1FF Is used as a stack area. 
Any data or return addresses pushed on- 
to the stack during program (or monitor 
routine) execution will erase and replace 
any program material which one might 
attempt to store in these locations. 


Likewise the SYM manual! Indicates 
that the page zero locations from OOFO 
to OOFF are used occasionally by the 
monitor program. 


Using the SYM tape dump routines, 
we are able to dump a continuous biock 
0000 to OSFF to the tape but it is not 
possible to reload this block In the same 
manner because of the monitor usage of 
the areas specified above. 


In order to make as full use of the 
memory space as possible then, we 
must segment.the programs, storing one 
segment in the area from 0000 to OOEF, 
another from 0100 to 01CF and the third 
from 0200 to OSFF (or higher if additiona! 
memory is Installed). 


To store the complete program on 
tape, we must store the segments in- 
dependenily, since that is the only way 
we can properly retrieve them. Just as an 
example, let's say that the first segment 
has an ID byte of ‘02”, covering 
0000-00EF, the second segment an ID 
byte of 03" (0100-01CF) and third an ID 
of “04”, (extending from 0200 to the end 
of the program). 


Then to reload the program from 
tape, we must issue three sets of com- 
mands, specifically: Load 02 (CR), Load 
03 (CR), Load 04 (CR). We must wait for 
the tape load in between entries. Then 
we must issue the command which 
Starts the program. If the start location 
is 0200, we must enter: Go 200 (CR). 


{t would be much simpler if we were 
able to enter all of the commands at 
once and have the machine load all the 
segments in the right places and then to 
auto-jump to the start of the program on 
completion of the load. 


Well there is an easy way to set this 
up with the SYM-I. A I6-byte program 
entered by the user Into any 16 con- 
secutive locations will act as the initial 
oader program. This is shown in Figure 

ne. 
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This program would load a program 
with an ID equal to 01". Because we did 


-@ jump to the tape load routine rather 


than a “JSR”, an interesting thing hap- 
pens. When the tape load routine is done 
it executes an “RTS”, a return from 
subroutine. This causes the last two 
bytes pushed onto the stack to be pulled 
back off and loaded into the program 
counter. 


Therefore when we complete the 
load of program “‘0l”, we will execute a 
jump to location 0200 because this is the 
two byte address we pushed onto the 
stack before the tape load routine was 
ordered. Program “Ol” is, in this case, In- 
tended to be loaded into loctions 
0200-0210 and is shown in Figure Two, 
described below. 


This program will load the segment 
“02” into tocations 0-Cl, then “03” into 
locations 100-1C1, and finally segment 
“04” into locations 0200-03FF. Note that 
program segment ‘04” writes over the 
area where program “Ol” was loaded. 
However, since we were under control of 
the monitor program at the time, it did 
not matter at all. Besides this, once the 
third segment is fully loaded, we no 
longer need the loader program in 
memory. 


After the load, we execute the RTS 
In the tape loader routine. Since we did 
not jump to it as a subroutine for the 
load of the last segment, all it does is to 
pull 0200 off the stack and uses this as 
the location of the next instruction to ex- 
ecute. 


Therefore by toading those initial 16 
bytes in the first program described, we 
cause the machine to load program 1 
which began automatically to load in 
turn programs 2, 3, and 4. Then it began 
the execution of our loaded segmented 
program at location 0200. 


0200 20 86 8B 
0203 AS 00 
0205 48 
0206 AS 02 
0208 48 
0209 AQ 00 
0208 AQ Of 
020D 4C 78 8C 
0200 20 &6 &6 
0203 AY 00 
0205 48 
0206 AQ 02 
0208 48 
0209 AG 00 
0208 AY O02 
020D 20 78 EC 
0210 AQ 0O 
Oz12 AQ 93S 
0214 20 78 &C 
0217 AO 00° 
0219 AS 04 
02186 4¢ 78 8C 


The only cautionary note in using 
this type of sequenced loading is to be 
certain that the load control segment is 
located in the area of memory which Is 
overlayed last by the final program seg- 
ment to be loaded (04 in this case). 
Otherwise you will erase the loader 
before the entire group of segments is 
brought in. 


The |6-byte setup program you will 
note Is fully relocatable, and could even- 
tually be linked as a part of your monitor 
routines. However to make {t more 
general in that case, the instructions 


now specified at 020B could be, for ex- 
ample, A5 EE, or reference any other 
zero page location so that the ID byte 
could be preloaded there by the user and 
retrieved by this routine for use later. 
This also assumes that the user has 
committed this routine to ROM. 


This sequenced loading technique 
has other uses as well, but that is 
another subject and may be the subject 
of a future article. 


Figure 1: The Bootstrap Program 

(Load and start Segment Loader) 
JSR ACCESS 2UNPROTECT SYSTEM RAN 
LDA #3900 *STACK LO BYTE OF 
PHA sPROGRAM O1 START ADORe 
LOA #302 sSTACK KI BYTE GF 
PHA sPROGRAWM OL START AODRe 
{Dy #300 sTAPE MCDE (80 IF HI SPO.) 
LBA #$01 sPROGRAM ID SEARCHED 
JMP LOADT sLGAD PROGRAM Ole 


Figure 2: The Segment Loader Program: 
Loads segments 02, 03, .4 then starts execution at location 0200. 


JSR ACCESS sUNPROTECT SYSTEM RAM 

LOA #300 sSTACK LO BYTE OF PRCGRAM 

PHA 79TART ADORESS 

LDA #302 27STACK FI BYTE OF PRCGR#M 

PHA sSTART ADDRESS 

wDy #¥#$00 sK IM MODE (80 FOR HI SPC.) 

LOA #802 sPROGRAM [ID 02 

JSR LOADT 7JSR TO TAPE LOAD SUBROUTINE 

LDY #820 7TAPE MCOE . 

LDA #303 720 G3 

JSR LOADT 3JSR TO TAPE LOAD 

LDY #800 sTAPE MODE 

tDA #804 3f0 04 

JMP LOADT sTAPE L CAD *JUMP* », BEGINS 
sPROGRAM AT 0200 WHEN LOAD DONE. 


Expanding the SYM-1... 
Adding an ASCII Keyboard 


Adding an ASCII keyboard to a SYM Is fairly simple, if you 
know what you are doing. There are a few tricks required 
and some understanding of the SYM Monitor is needed. 


And, it is all presented here. 


The Synertek monitor program has a 
feature which allows it to communicate 
directly with a teletype system. This Is, 
when you are in the reset mode, the 
monitor will scan both the onboard 
keypad and the teletype input port to look 
for the first keystroke. After finding the 
first stroke, either the keypad or the 
teletype is used as the exclusive input to 
the monitor program. 


Because of the teletype interface, it 
would, at first thought, be an excellent 
way to expand the basic SYM system. 
However, when one considers the bulk, 
cost and availability of a teletype, other 
alternatives for early stage expansion 
may come to mind. 


Synertek also offers a key- 
board/video display unit for the SYM-1, 
known as the KTM-2. It is a very versatile 
unit; but the present list price of $349 
could cause some of us to wait a bit to 
budget for its eventual purchase. What 
then to do in the meantime? 


To at least begin a system expan- 
sion at a low cost, one might consider ad- 
ding a full ASCII keyboard now and a full 
video display as a separate step at a later 
date. ASCII keyboards are available on 
the surplus scene for as little at $35, so 
this seems like a good place to start. 


An initial thought in adding the 
ASCII! keyboard to the SYM would be to 
duplicate the functions of the teletype. 
This would pose a couple of unwelcome 
complications, specifically the choice of 
an appropriate baud rate and the addition 
of a parailel to serial conversion to the 
ASCI| keyboard output. 


However, if we attach the keyboard 
to the teletype input and log onto the 
keyboard, the SYM monitor will respond 
to us in bit serial mode as well. We would 
then, at least for a period of time, lose our 
display capabilities. We would have to 
restore the onboard display vector in 
order to see the results of our keystrokes. 


Since a certain amount of software 
had to be written anyway to bypass the 
above probiem, It seemed appropriate to 
solve some hardware problems with soft- 
ware instead. | added VIA No. 2 (6522) to 
the system to provide an extra set of in- 
put ports, one of which | dedicated to the 
parallel ASCI| keyboard. Port B is used for 
the 6522 timer functions so to preserve 
these for future use.; Port A was chosen 
for the keyboard. 


in the attempt to add the keyboard to 
the system, a number of Items were kept 
in mind: 
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(A) All of the monitor functions had 
to be normaliy accessible (different 
key groups perhaps, but all func- 
tions still needed). 


(B) The use of the keyboard In place 
of the keypad should not interfere 
with the execution of any programs | 
had already written or adapted for 
use tith the SYM if at all possible. 


(C) The interface routines should be 
written in a fully relocatable style so 
that they could be incorporated into 
a monitor PROM routine if desired. 


In keeping with these principles, the 
program shown In Figure 1 was written to 
perform the monitor interfacing. 


When one desires to use the externa! 
ASCII keyboard instead of the keypad, 
the routine labeled INIT would be ex- 
ecuted. A direct jump to this routine is us- 
ed. It modifies both the keyboard input 
vector and the keyboard status vector, 
providing for entry to the other routines. 
Then It does a warm start jump back to 
the main segment of the monitor pro- 
gram. 


Following the execution of the INIT 
routine, the monitor program will always 
check the external keyboard for its in- 
puts. Only the reset key on the keypad is 


still active at this point. To restore full 
control to the onboard keypad, one needs 
only to push reset or execute a jump to 
location 8B4A which is the beginning of 
the power-on reset routine (simulates 
pushing the reset switch). 


Now that we’ve used INIT, let’s see 
what functions we have and how to ac- 
cess them. To begin with, there are two 
routines in Figure 1 referred to by the INIT 
program: 


GKEY, the equivalent of SYM 
GETKEY, and 


KSTAT, the equivalent of SYM 
KYSTAT. 


Both routines affect the same registers 
(A,F) and have the same overall effect as 
noted in the SYM manual, page 9-3. 


The KSTAT routine reads the input 
port addressed as A801, then /eft-shitts 
the input byte. If there is an input there, 
the carry bit will be set. Therefore KSTAT, 
as a subroutine, performs exactly the 
same function of KYSTAT. 


The ASCII keyboard Is connected 
with its 7 output bits on port A bits 2PA6- 


2PAO. Port 2PA7 [s used for a key strobe 
input (any key down). The keyboard parity 
bit, if any, is not used in this application. 
If no key is down, the input port will be 
read as ail zeros. If any key is down, the 
most significant bit of the input port will 
be a one due to the presence of the 
keystrobe bit, allowing a single left shift 
to set the carry bit. 


The GKEY routine performs the 
same function as GETKEY in that it scans 
the display while waiting for a key to be 
pressed. In the process of waiting for a 
keystroke, the scanning of the display is 
controlled through the display scanning 
vector. This allows the user to make use 
of the oscilloscope output routine with 
only minor modifications, substituting a 
JSR to GKEY for the JSR to GETKEY. 


Ail other specifications mentioned in 
the Synertek manual for the oscilloscope 
driver routine will then be valid. As a mat- 
ter of fact, access to an oscilloscope and 
the use of the driver routine could tem- 
porarily satisfy a person’s desire for a 
video display, at Jeast until some suitable 
alternative could be found. 


The ASCH keyboard scanning 
routine GKEY handles the keybounce pro- 
biem by going into a smail wait loop Im- 
mediately after sensing that a key is 
down, then scans the display while it 
waits for the key to be released. After 
release, it interprets the original 
keystroke contents by stripping off the 
keystrobe bit and returning to the calling 
program with the ASCI! equivalent of the 
key in the accumulator. 


Now that we’ve seen how the 
routines provide for the communication 
with the new keyboard, lets see how we 
can access all of the SYM monitor func- 
tions without resorting to the use of the 
keypad. 


Because of the direct relation of the 
ASCII equivalents, the following control 
functions are directly accessible: 


Memory: M Jump: J 
Verify: V Execute: E 
Biock move: B Go: G 

Write protectW Calculate: C 
Register: R Fill: F 
Deposit: D 


0200- 20 88 8] £GKEY JSR SAVER SAVE REGISTERS 
0203- AD 01 AS LDA $A801] GET PARALLEL ASCII 
0206- FO 24 BEQ WAIT2 UNLESS NONE, THEN BRANCH 
020B- 85 Fl STA *$F1 STORE IT A WHILE 

O020A- ASX 10 LDA #$10 DEBOUNCE CONSTANT 
020C- 85 EF STA *SEF 

O20E- C6 FO. WAIT] DEC *SFO SMALL LOOP 

0210- DO FC BNE WAIT] 

0222— C6 EF DEC *SEF LARGE LOOP 

0214- DO FS BNE WAIT] 

0216- 20 03 89 #SCANA JSR IJSCNV SCAN DISPLAY 

0219- 2C 01 AS BIT SA801 IS KEY STILL DOWN? 
021C- 30 FS BMI SCANA WAIT FOR KEY RELEASE 
O21E- A5 Fl LDA *SFi KEY UP, PROCESS KEY 
0220- 29 7F AND 4&S$7F STRIP KEY STROBE BIT 
0222- 20 47 SA JSR OUTCHR SEND INTO DISBUF 

0225- AS F} LDA *S$F) GET IT AGAIN 

0227- 29 7F AND #$7F STRIP IT AGAIN 

0229- 4C BS 81 JMP RESXAP RETURN WITH ASCII IN A 
022C- AS 10 WAIT2 LDA #510 IF NO KEY, 

O22E- 85 EF STA *SEF SCAN DISPLAY 

0230- 20 03 89 SCANB JSR IJSCNV THROUGH SCANVEC 

0233- C6 EF DEC *SEF A NUMBER OF TIMES 
0235- DO F9 BNE SCANB THEN GO BACK 

0237- FO C7 BEQ GKEY AND LOOK AGAIN 

0239- AD 01 A8 KSTAT LDA $A801 READ ASCII INPORT 
023C- OA ASL A SHIFT MSB INTO CARRY 
023D- 60 RTS RETURN WITH CFLAG=] IF KEY DOWN. 
O23E- 20 86 8B INIT JSR ACCESS  UNPROTECT SYSRAM 

0241- AS 00 LDA #00 MODIFY 

0243- 8D 61 A6 STA S$A661 KEYBOARD 

0246- AS 02 LDA 402 INPUT 

0248- 8D 62 A6 STA $A662 VECTOR 

024B- AQ 39 LDA #$39 

O024D- 8D 67 A6 STA $A667 KEYPRESS 

0250- AS 02 LDA #02 STATUS 

0252- 8D 68 A6 STA SA668 VECTOR 

0255- 4C 03 80 IMP WARM WARM START MONITOR 


Figure 1: ASCil Keyboard Interface initialization and 
communication routines. 


48 


Likewlse, again because of the 
direct ASCII usage by the monitor, the 
carriage return (CR), plus sign, minus 
sign, forward arrow and reverse arrow 
functions of the ASCII keyboard will per- 
form the same functions as_ those 
equivalent keys on the built-in keypad. 


Accessing the remainder of the 
monitor functions will require the use of 
two keys simultaneously, in the fashion 
of a shifted character. One of the keys is 
the CONTROL key often found on an 
ASCIl keyboard. The function of this key 
{if your keyboard doesn’t have one) is to 
inhibit the output of the two most signifi- 
cant bits of the ASCII output, in this 
case,to force a zero to both input lines 
2PA6 and 2PA5. This can be accomplish- 
ed with a single switch and one type 7408 
iC as suggested in Figure 2. 


The following functions are access- 
ad by first holding down the control key, 
then pressing the indicated ASCII! key: 
(control key referenced by CNTL below) 


Store Double Byte: CNTL P 
Load Paper Tape: CNTL Q 
LD1t (KIM format): CNTLR LD2 (SYM hi 
spd): CNTL S 

USRO: CNTL T 

USR1: CNTL U 

USR2: CNTL V 

USR3: CNTL W 

USA4: CNTL X 

USR5: CNTL Y 

USR6: CNTL Z 

USR7: CNTL ( 

SAVP save paper tape: CNTL 
SAV1 (KIM format): CNTL ) 
SAV2 (SYM hi spd): CNTL 


As may be seen above, although cer- 
tain of the keys may be different, all of 
the monitor functions are accessible 
from the external keyboard, fulfilling our 
objectives in adding it in the first place. 
Actually | have hedged a bit for a couple 
of items, but these items | figure are not 
needed on the external keyboard, but 
serve their purpose better on the keypad, 
specifically the DEBUG ON/OFF, the 
SHIFT, and the ASCil keypad items. 
DEBUG is a hardware function which can 
be simulated by software, so in a program 
we can access the function. SHIFT is a 
monitor translation routine, appropriate 
only to the placement and arrangement 
of the keys on the keypad. Finally, the 
ASCII key is not necessary externally 
since everything we output from the ex- 
ternal keyboard is formatted in parallel 
ASCII anyway. 


The SYM-1 is a very powerful single- 
board computer. The addition of a 
parallel ASCII} keyboard inexpensively 
provides us with a basis for further ex- 
pansion of the SYM-1's capabilities. 


Sv 


Ascit BIT 7 


AScit BT & 


Yy Hes 


2PAG 


2PAS 


CCNTROL KEY 


Figure 2: Adding a CONTROL key 


The SY6516 PSEUDO-16 microprocessor, 
after power up, is identical to the 6500 
series microprocessors In terms of in- 
struction set (source code only), registers 
and system timing. However, due to im- 


Instruction Addressing 
Mode 
STA (IND, Y) 
(ABS,X%) 

LDA ABS, Y 
INC ABS,X 
DEC ABS,X 
ASL ABS,X 
ROL ABS,X 
ROR ABS,X 
TAX IMPLIED 
TXA IMPLIED 
TAY IMPLIED 
TYA IMPLIED 
TSX IMPLIED 
TXS IMPLIED 
SEC IMPLIED 
CLC IMPLIED 
SED IMPLIED 
CLD IMPLIED 
SEI IMPLIED 
CLI IMPLIED 
CLV IMPLIED 
INX IMPLIED 
DEX IMPLIED 
DEY IMPLIED 
PLP IMPLIED 
PLA IMPLIED 
NOP IMPLIED 
RT! IMPLIED 
RTS IMPLIED 
TSX FLAGS 


ABS 


6500 #Cycles 


provements made in the state counter 
and look ahead carry in the SY6516, 
several of the instructions in the 6500 
series will require fewer cycles to ex- 
ecute. Instructions in this category are: 


6516 #Cycles 


hOB OWS BeBe wtwonsn ene oOn nnn KB KU QOOOOAW A WM 


NO FLAGS 
5 


N 


AZVFOA nN RANDY NYNNMNM NYP DYDNDNMDAONMNYNNNNNNN ANN POO 


TSR 
Table 1: SY6516 Pseudo-16 compatability to SY6500 


series microprocessors 


Time of Day Clock 
and Calendar for the SYM-1 


Now you can have a Clock and Calander running In your 
SYM at the same time you are running programs in 
BASIC. The concepts presented can be easily generaliz- 
ed Into other ‘multi-task’ operations. 

a 


Here is a machine language 
subroutine for the SYM-1 BASIC which 
keeps track of time and date while allow- 
ing BASIC programs to be run. 


A useful adjunct to a microcom- 
puter, especially one used-in a system, 
is a continuously running clock which 
can be used to record the time at which 
events occur or to generate signals at 
specified times. The SYM-1 includes 
timers on the 6522 VIA chips which make 
impiementation of such a clock easy. 
The clock can be started, set, and read 
from BASIC. 


The clock is based on the use of the 
6522 to generate a train of accurately 
spaced interrupts. The April, 1979, issue 
of MICRO contained an article by John 
Gieryic (page 31) which presented the 
techniques of setting up and servicing 
the interrupts. The clock is an adapta- 
tion of those techniques. The program 
consists of sections which set the clock, 
initialize the Interrupt, service the inter- 
rupt, and update the clock. The clock- 
calendar needs to be reset only on 
February 29! 


The program is loaded into the 
highest bytes of available memory. On a 
4K machine this is $0F54-S0FFF. After 
the program Is loaded, BASIC is initiallz- 
ed with Memory Size set at 3920 to avoid 
overwriting the program. The clock is set 
and started by the command PRINT 
USR(3924,M,d,h,m), where the four 
parameters represent the month, date, 


hour, and minute, respectively. The pro- 
gram stores the times, then initializes 
the interrupt and starts the timer as 
described in MICRO 11:31. The timer 
located at $ACxx was used to avoid in- 
terference with the cassette tape 
routines. Once every 1/20 second an in- 
terrupt occurs which is serviced in the 
routines starting at $0F90. Accumulator 
and registers are pushed on to the Stack, 
then the 1/20 of seconds, seconds, 
minutes, and hours are incremented as 
needed. These four updates are done in 
an indexed loop, using a table of com- 
parison values (20 fractions, 60 seconds, 
60 minutes, 24 hours) stored at SOFE9 to 
see if the next timing unit should be in- 
cremented. The days and months cannot 
be incremented in the same loop, and so 
are done in the routines starting at 
$OFBD. There ls a comparison table giv- 
ing the number of days (plus one) in each 
month starting at $OFF4 used to deter- 
mine if the month should be _ in- 
cremented. When all needed increments 
are made the flag is cleared and the sav- 
ed registers pulled back from the stack. 


The clock may be read from BASIC 
by PEEKing at the appropriate storage 
locations. To print the date and time in 
the form 7/20/1979 17:45:02 execute the 
commandPRINTPEEK(4083)''/” 
PEEK(4082)’'/1979 
“PEEK(4081)”:"“PEEK(4080)'’:“' PEEK- 
(4079). The number of the month in the 
date can be replaced by a three letter ab- 
breviation by using the following short 
program to print the date, 
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Casmir J. Suchyta, Ill 
and Paul W. Zitzewitz 
Univ. of Michigan, Dearborn 
4901 Evergreen Road 
Dearborn, Mi! 48128 


1 A$=‘JANFEBMARAPRMAYJUN- 
JULAUGSEPOCTNOVDEC” 

2 MO = 1+ 3*(PEEK(4083) ~ 1) 

3 PRINT 
MID$(A$,MO,3);PEEK)4082);"",1979” 


Starting each program with this 
routine will let you know exactly when 
you did each job. Another use of the 
clock is to serve as an alarm clock. You 
may want the SYM to turn on a light, or 
Start an experiment at a certain time. To 
do this include a tight loop which in- 
cludes an IF statement comparing one 
or more of the storage locations with the 
desired time. When the comparison is 
good, the loop will be exited and the 
computer can execute the command. 


CrS4 $C Fe €F £8 SOL Fl OF E3555 
@FSC €8 SD Fo €F 65 €9 SD F342F 
CFé4 @F €S 6 3é BE AD OF 9Ds9C 
“FEC 72 AC AD OF 8D 7F AE ADs DI 
€F74 C@ 3D @E AC AR 2D 4C 29,569 
CF7C PF $r €D AC 89 CP SD OBs 6F 
Orff AC AD SE 8D C6 AC AD C3OSBF 
€fsc GF Cf AC €2 CB 48 SA 46 TF 
OFO4 99 43 £3 AM CH AD CL 99519 
(FOC ED CF C8 Ce GF FE IA 195C4a 
?FAR4 39 ED OF €9 €1 DO FEB CFsB3 
GFAC FE FE 99 FD @F £9 C3 SDsIC 
@FE4 €7 AC €8 AB €8 AA 68 28581 
(FEC 4@ 18 AD Fe @F 69 21 AESOF 
@FC4 F3 @F CD FS? 2@F Fe Cé 39D-63 
@FCC F2 @F aC BL OF AD @1 $D247 
(CFDA Fo CF F3 EF@ CD Fe GF SEeAI 
@FOC F3 €F 40 Pl @F AP @! SEs EO 
@FF4 F2 CF AC El OF 14 32C 3CoTA 
CFEC 18 @@ @5 1F 34 @E IS GEst1 
@FF4 27 1D 24 tF Of IF 26 2¢.eC 
CFFC IF O02 IF 2F58A 


OFEC 


OFFA 
OFFD 


MIN 


$Or54 
* SOFFO 


ER * $OFF1 


DAY 
MON 
COMP 


* $OFF2 
* $OFF3 
* $OFED 


ACCESS * $8586 


8c FO OF 
68 
8D Fi OF 
68 


68 
8D F2 OF 
68 
68 
8D F3 OF 
68 


20 86 8B 
AQ 90 
8D 7B A6 
A9 OF 
8D 7F A6 
A9 00 
8D OE AC 
AD OD AC 
29 BF 
6D OD AC 


&D 07 ac 


So 
| 


‘ 


SREERSSESSASSSRSESSESSE SES 


386 NeEnasgen 
Oo o°9 
3» Sy wy 


Wo WwW 
> oh 
o 

" 


3 OF 


Setine 


Tatrot 


INGR 


ADDAY 


REDAY 


HIGH 


Lietings 


Stores minutes 
Pulls hours 
and stores 
Pulls Day 

and 

stores 
Pulle month 
and 

stores 
Clears stack 


ACCESS Unwrite protect the system RAM 


Store low 
byte IRQ 
Store high 
byte IRQ 
Set 
IER 
Set 


return 


Push processor 
Accum 


X reg 


Y reg 
Clear dec flag 
Zero Y 

A 
zeros counter 
To next counter 
Need new day? 
Go to it 
Clear carry 
Get counter value 
{norenent 


CMPy HIGH-1 Conv with highest 


STY MIN 
PLA 

STA HR 
PLA 

PLA 

STA DAY 
PLA 

PLA 

STA MON 
PLA 

JSK 

LDAim $90 
STA $A67E 
LDAin OF 
STA $A67F 
LDAin $cO 
STA $ACOE 
LDA = $ACOD 
AND §$BF 
STA $acoD 
LDAim $CO 
STA #ACOB 
LDAim $50 
STA $AC06 
LDAim C3 
STA $AC005 
RTS 

PHP 

PHA 

TXA 

PHA 

TYA 

PHA 

CLD 
LDYin $00 
LDAin $00 
STAy COMP 
INY 

CPYim $05 
BEQ ADDAY 
CLC 

LDAy COMP 
ADCin $01 
BEQ LOOP 
STAy COMP 
LDAin $C3 
STA $ac0?7 
PLA 

TAY 

PLA 

TAX 

PLA 

PLP 

RTI 

CLC 

LDA DAY 
ADCin $01 
LDX MON 
CMPx MON 
BEQ REDAY 
STA DAY 
JMP = REIN 
LDAim $01 
STA DAY 
INX 

CPX $0D 
BEQ END 
STX MON 
JMP RETN 
LDXim $01 
STX MON 
JMP RETIN 


Go to zero and carry to next 


Store new value 
Finished: clear 
interrupt flag 
Restore 
Y reg 


X reg 

Aecun 

Processor 

Leave 

Clear carry 

Get day 

inerenent 

Put month in x reg 
See if at last day 
Yes, go to month change 
Save new day 

Leave 

Back to day one! 
Save 
To next month 

At end of year (13)? 
Go to reset year 
Save new month 
Leave 

Back to January (1) 
Save 

Leave 


Table of highest values of 


Time-of-Day Clock and Calendar 


fractions, seconis, minutes, hours, (dummy) 
followed by storage area for fractions, 
seconis, minutes, hours, days, months 
Table of max days in each month 

(plus one) fo the twelve nonths. 
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SYM-1 Tape Verification 


One of the problems with using audio cassettes on any 
system is knowing whether or not the data has been 
recorded properly. By the time you find the data did not 
get recorded properly, it is usually too late to do any- 
thing about it. Here Is a technique and program to verify 


the tape dump on a SYM-1. 


Do any of you other SYMMERS ever 
wonder if your tape save has executed 
successfully? This “problem” began to 
haunt me more and more as my tape 
library grew. A fair amount of time would 
be lost if the data on my tape was in er- 
ror. It Is possible (even though remotely) 
two bits could be in error such that they 
would “cancel’’ each other out In the 
checksum verification at the end of tape 
read. With all this floating through my 
mind | decided to write the following 
tape verification program. 


After executing a tape save (high 
speed format only) this program will 
read the data back and compare It byte 
tor byte, to the data in the memory which 
you just saved. This program needs no 
external information (parameters) from 
the user. The beginning and ending ad- 
dresses of the data in memory Is ex- 
tracted from the tape. At the end, the 
checksum is also verified. All the user 
need do is rewind the tape after a high 
speed format save, execute this program 
and then start the tape unit In the read 
mode. 


The program is relocatable to any 
point in the memory. No alterations are 
necessary. This makes It easy to move 
the program into any area of memory via 
the MOV command. Just remember to 
avoid placing any part of the program 
near the top of page one or within the 


data you just saved on tape. Piease note 
that this program is compatible with 
monitor version SY1.0. 


if the tape agrees with the data in 
memory and the checksum Is correct 
then the message “‘good” appears on 
the LED's. If the checksum is In error 
(even though the data compared correct- 
ly} then the message “CSUM” appears 
on the LED's. If any data Is in error then 
the address of the first compare error 
appears on the LED’s and the program 
terminates without checking the re- 
mainder of the data on tape. . 


Programming Hints 


i'd like to pass along a few sugges- 
tlons to you SYMMERS Just getting into 
programming. Begin your program's 
(code) at location '200 (page two). Do not 
put anything (code, preset constants) in- 
to page one. Any constants you need in 
page zero should be initialized by your 
program. Do not set constants in page 
zero and then store them on tape along 
with your code. Do not use spare system 
RAM for code, constants, or temporary 
data storage. Begin all tape saves at 
location ’200. Avoid saving page one on 
tape. | urge you to follow these sugges- 
tions as it will make your programmi 
tasks just a bit easier. 


Jack Gieryic 


2041 138th Avenue, N.W. 
Andover, MN 65303 


SYM - 1 TAPE VERIFICATION 
BY JACK GIERYIC 


0200 


0200 
0200 
9200 
0200 
0200 
0200 
0200 


0200 


0200 


0200 
0200 


0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 


JULY, 1979 
ORG 


$0200 


MONITOR SUBROUTINES 


ACCESS 
CHKT 

MONITR 
OUTBYT 
RDOBYTH 
RDB YT X 
RDCHTX 
START 
SYNC 


ae ee 


CONSTANTS 


CLKCON * 
SYN * 


® 


$8B86 
$8E78 
$8000 
¢B2FA 
$8DE2 
$8E28 
$8DDE 
¢8DB6 
$8D82 


t1F 
$16 


MONITOR STORAGE 


BUFADH * 
BUFADL * 
CHKH 
CHKL 
DDRIN 
DISBUF 
EAH 
EAL 
LATCHL 
MODE 


eaeek KR KH KH 


S$OOFF 
$O0FE 
$A637 
$A636 
$A002 
$4640 
$A64B 
$864A 
$A004 


$00FD 


YULINOW O1 LIX] 
90+ 


ULINOW 
4snasta 
OO$ 
4anasia 
i$ 
INSTA 
as 
snasia 
as$ 
nasia 
6£$ 


s0+ 
Gt 
20+ 


ZQt 
JOVSSIW YOdNs WNSAIGHI 


YOLINOW O1 LIX3 
TO+ 


YLINOW 
dnasTd 

00s 
tAGLND 
Tava 
4AGINO 
HOV Ing 


SSINqIDV 
JOVSSIN YOUN JNvdWOI AWidSIG 


YLINOW 
+nasia 
00$ 
4nasia 
3S$ 
anasia 
Ic$ 
inasia 
3$$ 


so+ 
0+ 
£Ot 
Als 


«009% 
JIVSS3N AO 3NSST , 


16+ 
49$ 
YIM VIA 
333 
N3HL 
Hav07 
HHI 
X LAGGY 
HavO? 
WHI 
X2LAGQY 


4AdV1 dols 
MO ATX] 


G009 SI WNSHISHI AT 3S13 
YOUN N3HL Hav07 

/ 10N AI A7$ 

YSLOVUWHI / YO 493HI 3S73 

d007 -Javo7 

HOvANg 

gavot 


MEST. 


dit 
WLS 
WIVOT 
VES 
WwIvd? 
Wis 
WIVvd? 
ViS 
WiVd) 
ViS 
WIVOT 


dwe 
VIS 
WIVQT 
use 
val 
usc 
v7 


dJWC 
Wis 
WIT 


HavO0% 


Javo1 


400? 


00 JY 
97 G8 
OO 6V 
Ss? GB 
ig 6V 
y? GB 
3 6V 
¢? de 
G9 6V 
é” a8 
6¢ 6V 


60 JF 
T? 08 
00 6V 
Vi OZ 
a4 SV 
V4 02 
43 SV 


£920 
70¢0 
220 
4320 
0320 
vaz0 
8320 
$920 
£920 
0920 
3820 


azo 
B8zG 
9820 
£820 
1920 
3v20 
Jv20 


6Vz0 
9ve0 
pvz0 
Tvz6 
420 
620 
¥620 
£620 
$620 
2620 


0620 
d8Z0 
8820 


6820 
9820 
£8Z0 
1820 
320 
@/Z0 
6220 
LL20 


$220 
£220 
T£26 


SS3I¥d0V S3YVdNOI INI 3S$73 
JIVSSIN YOUN 3NSST NHI 


WavAng 
Jav07 
av ne 
Oo§g 
LAHI 


4uVdW09 QVa 41 
WNSAISHI 3LVddN N3HL 


4S0VO7 

HV3 

Having 

aav07 

Wa 

16+ wivd - 40 - GN3 LON JT ovsana 
SLAG MIN 139 HLAGGY 


JAYS HW3 

WASHNISHI O1 Gav HHI 
4dV¥i WONS HVA 139 XLAGIY 

JAYS Wa 

WASNIZHD Of Gav 1NHO 
4dVi WOUA TW 139 XJAGGu 

JAWS Hav 4ne 

WNSNISHI OL Gav LMHS 
‘3dVL WOU4 TW3 139 X LAGU 
JAYS ving 

WASHIFHI 01 Gay LAHD 
3dVi WOUS WS £39 xlAgaY 

OT iSWd dvd Xi1AGdY 


300W 
40g 
119 INAS NI LON YV3T3 «© OW 

wivd 40 luvisS 3S73 
* YO4 INTHOO? daa 3913 g0VvoT 
HOUVSS INAS LuViS3Y N3HL vavo'tT 
QNAS NI LON JI N3AL NAS 

a0v07 

Wivd 40 LuviS LON JI vz$ 


YSLIVUVHOD OVI" xX LHOGY 


JNAS NI £39 INAS 

HOLV1 G1 NI 3¥0LS TWHILVT 
NIOW dN £3S NOJW19 

YIVVIA 

oaFs 

NINGG 

4a$ 

140d INdNI 13S NIYQG 


3ZTWLINI § Lu¥iS 
Q33dS HSIH = 300W 13S oe$ 
SSIIIV 


wows 
g0ov$s 


INI 
3Na 
ATdWO 
WIAG) 
usc 30v07 38 
baa 
Xd] ov 
x01 
3Na 
XdJ 98 
xa 
ySC davol aa 
WIS ov 
asc 38 
¥SC 78 
W1S 98 
usc 38 
usc 38 
vis 
usc 38 
USC 39 
WIS 
¥SC 39 
USC 39 
ySc 39 
wiS 
WIGNY 
vat Jdvo7 
3d 
3NG 
WIdN9 
03a 
WIdHO 
usc advo? ae 
USC vOVOT aa 
VIS Ov 
WIVGT 
Wis ov 
KIVA 
wis ov 
WIGNY 
vd Ov 
usc a8 
WIAGT 
uSC NID39 99 
® YIdWIA 
« MOVVIA 


34 93 4920 


SYM-1 6532 Programmable Timer 


The 6532 interval timer is useful as a backup timekeeper 
or as a loop controller. It can be accessed in two ways, 
independent of the interrupt system, and employed to 
meet a variety of realtime program requirements. 


In addition to the programmable ports 
and Interval timers located in the 6522s, 
the SYM-1 has an interval timer in the 
6532. The 6532-style device ls also used 
on the KIM-1, and so knowing how to use 
the SYM timer properly will help in 
understanding KIM programs = and 
enable the SYM programmer té adapt 
KIM programs for use on his SYM more 
easily. 


The 6532 timer does not have its IRQ 
line connected to the IRQ input of the 
6502. Therefore, lacking direct access to 
the interrupt structure, we are unable to 
get as precise a leve! of timing as with 
the onboard 6522s. However, If an extra 
timer or loop controller is required, the 
6532 may prove to be useful. 


Before using the timer in the 6532, one 
must first clear the interrupt flags. Sirice 
all of the features we intend to use are 
part of the write-protected memory, we 
must first of all allow access to this 
area. This is accomplished by: 


20 86 8B JSR ACCESS 


Then, to clear the interrupt flag (PA7 
flag), we will read the interrupt flag 
register. This may be accomplished by 
reading any one of four locations: A405, 
A407, A41D or A41F, typically by execut- 
ing the instruction: 


AD 05 A4 LDA INTREG 


After this instruction Is executed, the 
interrupt flag register will contain ‘‘80”. 
This register will be cleared to ‘‘00” 
when we write a value into the timer 
register. We may then go back occa- 
sionally during program execution, test 
to see if the flag register Is still zero, and 
‘branch if it is not zero. 


As another alternative, we can do a 
BIT test on the flag location, checking 
only the timer flag for the branch condi- 
tion. This method has been used in the 
sample program. If the BIT test Is used, 
it is not necessry to read the interrupt 
register in order to clear the PA7 flag 
because this flag will not be tested. The 
initial read instruction then becomes 
redundant. 


At this point, we must decide how 
many clock cycles are to elapse before 
the timer flag becomes set. Then we will 
write the selected value into the counter. 


There are four different points at 
which to enter data into the counter, 
A41C, A41D, A41E and A41F. These are 
indicated In the manual as 1T, 8T, 64T 
and 1024T. These multiples mean that 
any data which is entered into the 
counter will begin at that particular 
count and decrement at the rate of the 
clock frequency (1T), or at one decre- 
ment for each elght clock cycles (8T), 
one decrement for each 64 clock cycles 
(64T}) or one decrement for each 1024 
clock cycles (10247). 


There ts only one timer register, but 
the four addresses mentioned above are 
the means by which the frequency pre- 
divider is set. For example, If we write 
“01” into location A41E, the timer flag is 
reset and, 64 clock cycles later, the timer 
flag is set again. If we write ‘01” into 
location A41F, instead, then the timer 
flag will not be reset until 1024 clock 
cycles have elapsed. 


Just as an example, let’s say we 
wanted 800 clock cycles to elapse 
before the timer flag is set. We will be 
reading the flag register periodically to 
see if it is non-zero, determine whether 
the flag gets set, and branch on the non- 
zefo condition. Writing decimal 100 (hex 
64) into location A41D sets the pre- 
divider; to 8 then, 8 x 100 = 800 ticks 
later, the timer reaches zero and the flag 
is set. 


While the counter is independently 
decrementing, we can determine the cur- 
rent timer contents at any time by 
reading one of these four locations: 
A404, A406, A41tC, A41E. There are four 
readable locations due to ‘‘don't care” 
addressing modes or incomplete ad- 
dress decoding. 


One might be tempted to look at the 
timer contents, occasionally, and 
branch when the count reaches zero. 
This does not offer a good chance for 
success as the following example will 
show. 
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Let’s say we've written “OA” (decimal 
10) into location A41D (8T) so that 80 
cycles later the timer wil! count down to 
zero. Suppose we do the following dur- 
ing the counting period: 


(A) Increment a memory location 
(B) Test timer contents 


(C) Branch back If non-zero 


lf the sequence of operations takes 
seven machine cycles, then after 77 
cycles the timer will still be at 01” and 
after 77 + 7 = 84 cycles the timer will 
contain a count of zero since more than 
80 cycles have elapsed, right? Wrong! 
Unfortunately, it will contain “FC” in- 
stead! The limitation of this counter is 
that, as soon as zero is reached and the 
flag is set, the counter continues to 
decrement, but it no longer matters 
which counter multiple was belng used 
because as the counter immediately 
begins to free-run decrement at the 1T 
rate. 


To overcome this limitation, since we 
do not use the !RQ and since we only 
sample occasionally, we will generally 
read the interrupt register, testing for a 
non-zero figure, rather than reading the 
timer and looking for zero contents as 
shown above. 


Now we come to an example program 
which ties everything together and 
demonstrates the use of this timer. 
Location 20D may be set for any desired 
timer value. Location 20F may be set to 
10, 1D, 12E, or 1F depending upon 
whether you want to operate the timer 
with a predivide of 1T, 8T, 64T, or 1024T. 
You will notice that the loop of instruc- 
tions between locations 211 and 224 
takes a total of 28 machine cycles to ex- 
ecute. 


Begin program execution at location 
200. The display will light, upon comple- 
tion indicating how many times the pro- 
gram was able to traverse the loop 
before the timer flag became set. 


0241 
0241 
0241 
0241 


0200 
0200 
0202 
0204 
0206 
0209 
020C 
020E 
0211 
0212 
0214 
0216 
0218 
021A 
027C 
021E 
021F 
0222 
0224 
0227 
0229 
022C 
022E 
0231 
0233 
0236 
0238 
0238 
023E 


A9 00 
85 AO 
85 Al 
20 86 8B 


AD 


1F AU 


AQ FF 


8D 
F8 


1D Au 


A5 AO 
69 01 
85 a0 
AS A‘ 
69 00 
85 At 


DE 
2c 
30 
4C 


05 ak 
03 
11 02 


AQ 20 


20 


C1 8&9 


A5 Al 


20 


FA 82 


A5 AO 


20 
Ag 
20 
20 
AC 


Fa 82 


20 

C1 89 
06 89 
3B 02 


SYMBOL TABLE 2000 202A 


ACCESS 8B86 


SCAND 8906 


® PROGRAMMABLE TIMER DEMONSTRATION PROGRAM 
# 


# BY ROBERT A. PECK 
# MODIFIED BY MICRO STAFF 
e 


STORE ZERO IN 
AREA RESERVED FOR TOTAL 


UNPROTECT SYSTEM RAM 

CLEAR PAT FLAG, OPTIONAL HERE 
LOAD TIMER PRESET NUMBER 
ESTABLISH 8 AS PRE~DIVIDE 
TIME = 255 * 8T = 2040 CYCLES 
SET DECIMAL MODE 

LOAD AO AND ADD ONE 


IF TEERE'S A CARRY 


CLEAR DECIMAL MODE 

TEST TIMER FLAG 

BRANCH IF MINUS FLAG IS SET 
JUMP BACK AND DO iT AGAIN 


SEND IT TO DISBUF 
GET CONTENTS OF A1 
SEND IT TO DISBUF 


SCAN THE DISPLAY 
DO iT CONTINUOUSLY 


Dual Tape Drive for SYM-1 BASIC 


If you want to make your SYM - 1 BASIC work with two 
tape recorders and manage tape cassette files, here Is 
what it takes. A few important observations about the 
BASIC are presented that could save you grief. 


When | bought my SYM-1, | had no in- 
tention of buying BASIC for it. However, 
after not being able to show off my new 
computer to my friends and relatives ina 
way they could understand, | decided to 
go ahead and get the BASIC ROMS. 
Then | purchased a book of BASIC 
games and copied several of them onto 
tape. The need to have a convenient 
means of copying tapes to make backup 
copies became apparent. Also, | 
discovered that the tape routines do not 
work after BASIC has been interrupted 
and reentered with a “GO" command 
(warm start). After | recieved the tech 
note from Synertek describing how to 
put trig functions in BASIC, | found out 
how to fix this problem. The tape 
routines use system RAM to pass infor- 
mation from BASIC and apparently the 
call to “ACCESS” was omitted during 
the warm start. 


To make the second tape recorder 
work, | added five components to one of 
the buffered outputs to make it look like 
the audio cassette remote control con- 
figured for type IV (see figure 3-3, pages 
3-7 of SYM reference manual). This is the 
set up required for one of the recom- 
mended recorders, Radio Shack CTR-40. 
Refer to SYM reference manual figure 
4-5A, pages 4-12. Note that pad 1 is 
located between pads 2 and 6. The 
following connections were made to buf- 
fer PB4: 


Install 470 OHM at location Ré5. 


install 2N2902A transistor emitter to pad 
6 base to pad 9 
collector to pad 
1. 

install 1K resistors between pads 6&9. 

install 1N914 diode anode to pad 1 
cathode to pad 6 

Install 1N914 diode anode to pad 19 
cathode-pad 16. 


install subminiature phono plug tip to 
pad 6, 
shield to pad 1. 


My first tape recorder (General Elec- 
tric model M8455A) is connected to the 
normal remote contro! configured for 
type V. The audio out (LO) goes to the 
MIC input. | discovered a trim pot on the 
inside of the recorder which, if turned 
completely counter-clockwise, makes 
the recording ideal for the SYM com- 
puter (terrible for voice though). Also, | 
found it necessary to align the heads of 
both tape recorders before | could get 
reliable operation. The GE recorder is us- 
ed normally to save files and the Radio 
Shack recorder is used with special 
routines to load files. Tha assembly 
languagé program was written at a loca- 
tion just before the trig function routines 
and includes two sets of execute com- 
mands for cold and warm starts to 
BASIC that are compatible with the trig 
functions and Include a calt to ‘“AC- 
CESS” so that the tape routines will 
work after a warm start. 

The hex dump of the tape drive routine 
plus the trig functions (from Synertek 
Systems Corp. Tech Note 53) can be us- 
ed to enter the code into your system. 
Use the same verify command and com- 
pare checksums to check your work. | 
save this file on tape using an ID of $31 
which can be loaded and saved from 
BASIC as file “1”. 

The sample run-stream illustrates how 
to make it atl work. First, a cold start to 
BASIC was performed with the monitor 
execute command (E ESA). SYM 
responds with everything down to line 
100 which was entered to excercise the 
trig functions and provide something to 
save on tape. After running the single 
line BASIC program, it was saved on 
tape with the file name “T”’. “NEW” 
erases the program to indicate that the 
tape will do a real load. The “USR” com- 
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mand to hex address 8035 takes us out 
of BASIC and back to the monitor. To get 
back to BASIC use the execute com- 
mand (E E95). The response includes 
everything down to the word “list’’. 
Since nothing was listed, this shows 
that the previous program has been 
erased. It is loaded back in by transfer- 
ring the cassette from the ‘“‘save only” 
recorder (in my case the GE) and putting 
it on the “load only” recorder (Radio 
Shack) and pushing the rewind button. If 
this is the first time that the load only 
recorder has been used since the SYM 
was reset, then the recorder will start 
rewinding immediately. Otherwise it will 
wait until the “LOAD T’ command is 
entered. When the tape Is rewound, the 
play button is pressed and the recorder 
stops automatically when the file is 
loaded. Listing and running the program 
show it to be the same as before. 


The way | use routines to manage filles 
is through the use of three identical 
cassette tapes each storing one copy 
each of all my BASIC programs. | use a 
fourth tape for temporary storage of a 
program | am currently working on. 
When | want to make a copy of all the 
programs on tape, | put that tape into 
the LOAD-ONLY or READ-ONLY 
recorder, and push the PLAY button. 
Then | put the tape that | want to copy to 
in the SAVE-ONLY or WRITE-ONLY 
recorder and push the PLAY-RECORD 
buttons. | also keep a directory on paper 
of the program files ID’s on tape. Its a 
simple matter to type a sequence of 
BASIC commands consisting of a series 
of LOAD A, SAVE A, LOAD B, SAVE B, 
LOAD C, SAVE C, etc. If | want to insert a 
new program from my temp tape, | just 
swap tapes in the READ-ONLY recorder 
to get the new program out, and then 
swap back to continue with the old pro- 
grams. 


-E ESA 


oJ 8 
MEMORY SIZE? 3674 
WIDTH? 98 


ox 
PUKE2 02» 1698 PDKE203» 148 POKE 196» 104¢ POKE1979 15 


aK 
100 PRINT SIN(1) »COS (2) 5 TAN (32> s ATTN <4) 


RUN 
- 941470985 —. 416146836 
OK 
SAVE T 
SAVED 


OK 

NEW 

OK 

TUSR (8."8035": 0D 
CBED> 3 


-E ESS 
6 0 


OK 
PUSR ¢&." SBB6" > 0? 
9 


aK 
LEST 


QK 
LOAD T 
LOADED 
OK 
LIST 


100 PRINT SINC1) »COS (2> s TAN C3) » ATN C4) 
OK 


RUN 
-841470985 
oK 


-. 416146836 


As a matter of habit | then read the 
tape | have just written to verify that it is 
O.K. and use It to copy Into my third per- 
manent tape. Then | repeat the process 
golng from the third tape back to the 
original one. Finally, | read the original 
tape to verify it. If at any point | detect a 
bad load, | know that | will always have 
an available on one of my tapes a copy 
of the file in good condition, that hasn’t 
been overwritten yet. 


Small changes can be made In any 
program file by copying it onto the temp 
tape with the changes (I usually make 
two or three copies on the temp tape) 
and then rewriting the file on each of the 
permanent tapes by reading the file im- 
mediately before the one { want to 
change to find where to start, and 
reloading from the temp tape before ac- 
tually saving the changed file. 


Three Other Observations 


1.Two words have been omitted from the 
ilst of reserved words on page 9 of the 
BASIC manual: “GO” and, “GET”. “GO” 
allows you to spell “GOTO” as “GO TO” 
if you want; not really a good idea since 
it takes three bytes of storage instead of 
only one. “GET” must be a leftover since 
it always generates an FC error. 


2.Page C-2 of the manual states that 6 
bytes of storage are used for each 
variable: 2 for the name and 4 for the 


~. 142546543 


-,142546543 


1.32988 766 


1.32581766 


37 


34 


Se 
22 
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value. In fact, 5 are used for the value, br- 
inging the total to 7. This is what gives 
SYM BASIC its 9+ digit resolution. The 
disadvantage is that every simple 
variable (including Integer and string 
variabies which only need two and three 
bytes respectively for their values) uses 
more bytes than are usually needed. In- 
cldentally, there is a memory saving 
when using integer or string arrays. 
However, Microsoft BASIC converts in- 
teger values to floating points before us- 
ing them, which takes longer than using 
floating points In the first piace. 
Therefore, as a general rule, Integer 
variables should only be used in arrays, 
and only when It is necessary to con- 
serve memory space. 


3.Don't make a mistake when typing a 
tine that prints a hex-formatted number. 
lf you don't follow the format exactly, 
BASIC hangs up in a loop, printing 
zeroes. If this occurs, you can recover by 
doing a reset and going back to BASIC 
with a warm start. Your program will still 
be there, but as with any error, the pro- 
gram cannot be continued. 


ASSEMBLY LANGUAGE PROGRAM 


MODE 

CONF 16 
ZERCK 
Pescr 
BDRSB 
GR3B 

LDOADT 


EQu 
EQU 
Eau 
Eou 
EQU 
ERU 
EQu 


ASCII 


ASCII 


BYTE 


ASCII 
BYTE 


ASCII 


SFD 
S89A5 
$832 
$829C 
SAC o2 
SACO0 
$8078 
SESA 
“0° BASIC COLD START COMMAND 
$oD CARRIAGE RETURN 
°9674° = MEMDRY SIZE 
$oD CARRIAGE RETURN 
“80° LINE WIDTH 
$14,$0D CONTROL T» CARRIAGE RETURN 


CHANGE TAPE LOAD VECTOR 
“POKES 025 169: POKE2 03s 14: 


CHANGE TRIG VECTOR 
“POKE1 96s 104: POKEI97515° 


SOD» $00 CARRIAGE RETURN» END EXECUTE 
BASIC WARM START COMMANE 

$6 CARRIAGE RETURN 
JUMP TO MONITOR ACCESS SUBROUTINE 

“ ZUSR C2." QBB6™ >» 0) ” 


“60° 


SOD» $00 CARRIAGE RETURNe END EXECUTE 
MODE DO CUSTOM INITIALIZE FOR READ RECORDER 
a9 
CONFIG 
ZERCK 
P2SCR 
2300016000 
DORSB BIT PB 4 OF VIA 3 SET OUTPUT 
- OR3B TURN ON RERD TAPE RECORDER 
LOADT+3 LOAD TAPE BUT SKIP INITIALIZE 
2%00000000 
OR38 TURN OFF READ TAPE RECORDER 


o¥ ESA-FFF 

OESA 4A 30 OD 33 36 37 34 OD»68 
DEé6e 33 30 14 OD SH 4F 4B 45°20 
GQE6AR 32 30 32 eC 31 36 39 3A:BA 
OEr2 350 4F 4B 45 3e 30 33 eCrAA 
CEPA 31 34 3A 50 4F 4B 45 31:A9 
OES2 39 36 2C 31 30 34 3A 50263 
GESA 4F 4B 45 31 39 37 AL 31.40 
0O0E9e 35 OD 00 4/7 30 OD 3F 35.9A 
OE9A 53 Se 28 26 22 38 42 38261 
OERe 36 22 2C 30 29 OD O00 84>CF 
OEAA FD AS O09 20 AS 89 20 2E21F 
N9EBe 83 20 9C S2 AD 10 BD Here3 
OEBR AC BD ON AC 20 7B BC AD: DS 
OeECe 00 38D 00 AC 60 OB 76 B33 AS 
OECA 33 BD DB 79 LE Fé AG FS, DE 
OET2 7B 83 FC BO 10 7C QC 1F:3F 
GEDA 67 CA VC BE 53 CB Ct 7Ds26 


HE DUMP 


OEE2 14 64 70 4C 7D BY ER S1sC9 
OEEA 7A 7D 63 30 88 7E 7E 92:69 
OEF2 44 39 3A PE 4C CC 91 C?s6E 
OEFA 7F RA AA AA 12 81 O00 009 7F 
OoFo2 00 60 AS BE 46 10 O03 20,55 
OFGA 36 DD AS Bi 48 C9 81 90,E0 
OF1i2 O07 AD 72 AO DP 20 CS DBs 36 
OF 1A AD CP A4 CS 88 2 Ce DD: 56 
OoF22 68 C9 81 90 OP AD 35 Adse21 
OF2@A C5 20 06 D6 63 10 03 4C5A9 
OF32 36 DP 60 31 49 OF DA Rée>71 
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SYMple BASIC Data Files 


The SYM-1 has a Microsoft BASIC available in ROM. Data 
Save and Data Load via the cassette are NOT supported 
by this version. The routines required to implement these 
two important functions are presented here. 


If you've read “A SYMple Memory Ex- 
pansion” in the August 1979 issue of 
MICRO and “Another KIM Expansion” in 
the September 1979 issue of Kilobaud 
Microcomputing, then you know that | 
like Micro-Z's BASIC for the KIM. You will 
also know that | have the Synertek BAS-1 
BASIC for the SYM. Both versions were 
written by Microsoft, have 9-digit decimal 
accuracy, etc. but differ In some of their 
functions. 


Comparing the Micro-Z 
Synertek BASICS 


Synertek BASIC has a more convenient 
USR function and a &hex” function that 
are definite improvements over the 
original BASIC. Their ROM version has no 


GET function like Micro-2's. Another dif- 
ference is that a response of a carriage 
return only to an INPUT statement will 
cause a break in program execution with 
Synertek’s BASIC. Micro-Z has supplied a 
patch to defeat this break. The Synertek 
ROM does not include any trig functions, 
but they have recently released Technical 
Note #53-SSC that gives you full trig 
capability using only 313 bytes of RAM. 


The main difference between the two 
BASICs, then, is the data save/data load 
feature added to his version by Bob Kurtz 
of Micro-Z. This Is a very valuable feature 
that Microsoft left out. BASIC can not be 
used to maintain any types of files such 
as mailing lists, inventory records, or 
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financial records without this feature. 
Perhpaps you could enter the data via 
DATA statements, but that would be a 
very trying task indeed! This feature is 
the major reason that | have preferred 
Micro-Z’s BASIC over Synertek’'s. 


Data Save/Data Load for 
Synertek BASIC 


Listings 1, 2, and 3 are my first at- 
tempts to provide the same data 
save/data load functionality for the SYM 
with BAS-1. Listing 1 is just BASIC in- 
itialization, program loading, and a LIST 
of the program. All terminal input has 
been underlined for clarity. The little 
crooked arrows represent a carriage 
return typed in. 


7679 BYTES FREE 


BASIC V1.1 
COPYRIGHT 1976 SYNERTEK SYSTEMS CORP. 


OK 
LOADT 
LOADED 
on 


List 
10 REM 


20 REM = =0JOHN BLALOCK 
JO DIM A(100)- FECL1OO) IN & O 


SYM BATA SAVE/LOAD DEMO FPROGKAN 
AUG 19° 1979 


40 PRINT CHRS(12)4¢2FOR I = 1 TO 200°NEXT I 
5O PRINTTAB(30> "DATA SAVE/LOAD DEMO’ SPRINT: PRINTS PRINT 
60 INPUT’DO YOU WANT TO RESTORE PRIOR SAVED DATA? °396 


OO IF LEFTO(OG11)> «> °Y¥" THEN 200 


9O PRINT: PRINT®CONTROL WILL WOW EXIT TO THE SYM MONITOR. * 

100 PRINT°USE THE MONITOR TO LOAD DATA BLOCAS WITH ID 01+ O2> & O3.° 
230 PRINT °°L2 O1'°SFRINT® LE O2°° 1 PRINT* “LO O3°° 

420 PRINT’ THEN ENTER °G 0° YO RETURW TO BASIC.* 

130 PRINT‘ BASIC WILL RESPOND ‘OK’. THEN ENTEF ‘GOTO 200°°* 

240 PRINT’TO RETUFW CONTROL TO THIJS PROGRAM. * 


150 PRINT USFk(32000-0) 


200 PRINT CHROCIZ>5°FOF F = 1 TO 20C°MEXYT 1: PRINT 


210 PRINTSENTEF FAY NUMBEF ANE NAME rs 


EFFARATED BY 4 COMMA: * 


220 PRINT ‘FOF: EXAMPLE? ‘12345, JOHN SMITH’? 
230 PRINT‘ENTER & NEGATIVE NUMBER (-1) AS A PAY NUMBER TO END ENTRY. ° 


240 PRINT 
250 FOR I = N+i TO 100 
269 INPUT &¢))ebetr) 


270 IF afl) « 0 THEN N = J-1 :G0TC 300 


280 NEXT ISPRINT*TASLE IS FULLI® 
290 We J 


300 PRINT’THE TARLE NOW CONTAINS THE FOLLOWING DATA?" 
N 


310 PKINTS ¢ FAY NUMBE 


320 FOR I = 1 TON 


330 PRINT I Ta&k(11) ACI) TABi27) Bert) 


340 WEXT J 
330 PRINTPPRINT SPRINT 


AME * 


360 INFUT°DO YOU WANT TO SAVE THIS DATA? °s0¢ 


370 IF LEFTS(Q6:1) <“~ *Y* THEN END 
360 PRINT SPRINT SPRINT 


390 PRINT*°CONTROL WILL NOW EXIT TO TME SYM MONITOR. * 

400 PRINT°USE THE MONITOR TO SAVE THREE BLOCKS OF DATA. °* 

430 PRINT*THE FIRST BLOCK WITH IP Of IS FROM 865 TO SE7 (S2 01-65-E7).* 
420 PRINT*THE SECOND BLOCK (ID 02> 18 FROM THE ADDRESS CONTAINED IN‘ 
430 PRINT*® HEX 7D, 7E THRU THE ADDRESS IN HEX Gir 82.° 

440 PRINT°THE THIRD BLOCK (ID O3) IS FROM THE ADDRESS CONTAINED IN° 

4350 PRINT® HEX 63> 64 THRU THE ADDRESS IN HEX @7,y BB.° 


460 FRINT USK< 2200070) 
470 EWD 


Listing 2 is a RUN of the program 
showing the means used to save the 
data. Three separate records are saved; 
the page zero pointers, the numeric data 
and string pointers, and the string data 
itself. To reload this data, BASIC must be 
initialized with the same memory size and 
the program can not have been modified. 


Listing 3 is another RUN of the pro- 
gram after memory was cleared and the 
program reloaded. The data saved in 
listing 2 was restored, as can be seen. 
No, it is not as convenient as Bob Kurtz's 
method, but it works! Bob packs all the 
data together with a machine language 
subroutine and save it as one record. 
Another subroutine loads the combined 
record and then unpacks it, moving the 
data back to its original locations. 


Machine Language Version of 
Data Save/Data Load 


Listing 4 is a machine tanguage 
subroutine that will save and load BASIC 
data files without having to turn control 
over to the SYM monitor. The data Is still 
saved in three separate records, but they 
are recorded/loaded one right after 


another by the routine. An extra few 
seconds for each save or load (for sync, 
etc.) shouldn’t hurt anyone, should it? 


Listing 5 is a VERIFY dump of the 
subroutine. Load it in, VERIFY between 
the same addresses, and If you check 
sums match mine then you keyed it in 
correctly. Now we know why Synertek put 
those check sums on the VERIFY dumps! 
The rest of listing 5 shows BASIC in- 
itialization and the loading of the revised 
BASIC program. 


Listing 6 is just a LIST of the revised 
program. Note the memory size was 
specified to allow room for the machine 
language subroutine which is called by 
statements 100 and 400. With elther of 
the two methods, put the call to the load 
routine after any DIM statements and 
before the main program body. The call to 
the save routine should be at the very end 
of the program, as shown. Any changes 
to the program that increases the 
memory size needed for it will prevent 
data saved by a prior version from being 
loaded correctly. 


Listing 7 is a RUN of the revised pro- 
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gram wherein the data that is entered is 
saved at the end of the RUN. Listing 8 
shows memory being cleared, BASIC ini- 
tialization identical to that used in listing 
7, and then the BASIC program being 
reloaded. The RUN of the program loads 
the data saved in listing 7. 


If you plan on saving and loading data 
files very often, dedicating 148 bytes of 
memory to this subroutine should pay for 
itself in convenience over the method 
given earlier. 


SYMple Memory Expansion Update 


Regular readers of MICRO will 
recognize from the listings that my SYM- 
ple memory expansion board is still work- 
ing fine (7679 BYTES FREE). No probiems 
have been reported by anyone using it, 
there have been reports of SYMers using 
it in conjunction with other memeory- 
expansions! The bare boards plus in- 
Structions remain available from me at 
the above address for $5.00 each, plus a 
self addressed stamped envelope. 


Conclusion 


Now that the trig functions can be add- 
ed to BAS-1 and we've learned how to 
save and load SYM BASIC data files, I’m 
Sure you will agree that the SYMer has a 
BASIC that is comparable to the best that 
is available for the KIM. . 


This article was prepared using the 
EPROM version of MON-1.1_ from 
Synertek. This version didn’t unprotect 
System RAM after exiting BASIC to the 
monitor. The final ROM version was sup- 
posed to correct this problem. It didn't. IN 
the first method above, after re-entering 
BASIC via G 00, do a dummy SAVE with 
the recorder turned off. This will un 
protect System RAM and further SAVEs 
will work satisfactorily. 
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The First Book of KIM — onaSYM 


Programs presented in The First Book of KIM can be 
modified to run on a SYM. What’s more, the techniques 
presented here will aid in the conversion of other KIM 


software. 


Anyone who purchased “The First Book 
of KIM” with the expectation of easily 
modifying the programs to run on their 
SYM quickly found that the KIM and 
SYM might be hardware compatable, 
but the monitors are a lot different. The 
SYM manual has a list of SYM counter- 
parts to the KIM routines. It also makes 
the disclaimer that ‘‘the routines do not 
perform identically.” This is an over 
semplification! Some of the SYM rou- 
tines are really only distant cousins to 
their KIM counterparts. The routines 
asted in the SYM manuai are not close 
enough to the KIM routines to be easily 
substituted for the KIM entry points 
used in the book. 


Fre first couple of programs ! converted 
the hard way, with lots of relocating and 
some logic changes. | finally got smart 
and took the time to write these routines 
using simple address substitutions. 
These routines are obviously not identi- 
cai to the KIM versions they replace, and 
definitely do not take the same number 
of execution cycles. 


You may have to “tweek” some of the 
delay loop counters in the programs. 
Otherwise, replace the KIM addresses 
with these, fix up the VO addresses 
twhich | will also discuss later) and about 
90% of your conversion is done, at least 
for the games. 


| have not bothered to try any of the 
cassette programs yet. | have enough 
problems with the SYM standard rou- 
tines. There will be some places where 
you may need to get a little fancy to do 
the conversion without relocating 
things. Just remember that if you can 
perform an equivalent function in fewer 
bytes you can use NOP's to avoid re- 
location. 


Before | get down to discussing the rou- 
tines and some notes about writing 
directly to the displays, | would like to 
mention that these routines require one 
hardware modification to the SYM board 
in order to work properly. The modifi- 
cation is to remove the jumper that en- 
ables system RAM write protect, jumper 
MM-45, just to the left of the crystal. 


This is the first modification | made to 
my SYM, and | have not regretted It at 
ail. If you are leary about permanently 
disabling something, as | was, you will 
find that a four position DIP switch does 
nicely. You will get the added advantage 
of being able to write protect user RAM. 
The alternative is to insert a JSR 
ACCESS at the start of each routine. 


The first routine is the one to light the 
on-board displays, and actually has two 
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entry points. If you enter at SCAND, the 
byte indirectly pointed to by POINTL is 
moved to INH, and then the program 
falls through to SCANDS. This routine 
lights the display with the six hex values 
corresponding to the three bytes 
POINTH, POINTL, and INH, and then 
returns. 


The SYM “equivalent” standard routines 
OUTBYT and SCAND are not suitable re- 
placements. OUTBYT takes the bytes 
in the A register, converts them to two 
hex digits, and rolls them into the dis- 
play from the right. Repeated calls to 
OUTBYT cause the characters to march 
from right to left across the display. 


SCAND, on the other hand, lights the 
display with six hex digits as we want, 
but it assumes that the segment codes 
are already in the display buffer. This is 
further complicated by the fact that the 
display buffer is at $A640, which is a two 
byte address instead of the single byte 
used by the KIM. 


What | did was to pick up the data from 
the KIM addresses, convert it into seg- 
ment codes by using each nibble as an 
index into the SYM segment code table, 
and store all six bytes of segment code 
in the display buffer before calling the 
SYM SCAND routine to light the display. 
Fortunately, the KIM addresses do not 


fee 


* Update: Jack Gieryic of Andover, Min- 
nesota, advises against removing 
jumper MM-45. He prefers using JSR- 
ACCESS before code which writes Into 
system RAM and JSR NACCES after this 
code to again write protect this RAM. 
He adds: 


“| have two reasons for avoiding the 


hardware change. First, your program 
may contain a bug which inadvertently 
writes Into some or all of system RAM. 
Permanently removing the write protect 
feature will make this bug more difficult 
to trace. Instead of “missing data” in 
some buffer or variable (a problem 
relatively easy to “see’’ and figure out) 
you may have memory alterations which 
could be impossible to view since a 
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critical element of system RAM was 
destroyed. 


“Secondly, if Synertek does add a disk 
option to the SYM, | wouldn't be sur- 
prised if critical Information relating to 
the disk driver were located in the 
system RAM. If so, a bug which alters 
this memory could also cause your disk 
data to be destroyed.” 


conflict with important SYM addresses. MICRO-WARE ASSEMBLER 65XX-1.0 PAGE 01 
Specifically, $FA and $FB are used by 
SYM as the pointer to RAM for the EXE- 
CUTE command, and $F9 is used as a 


work area for the terminal I/O routines. 0010: 

0020: SYM-1 VERSIONS OF VARIOUS KIM ROUTINES 

0030: BY: NICK VRTIS - LSI/CCSD 04/12/79 
The SYM subroutine GETKEY super- 0040: MODIFIED BY. MICRO STAFF 06/06/79 
ficlally resembles the KiM routine of the 0050: 
same name. The SYM does a lot more 0060: THE PURPOSE OF THESE ROUTINES IS TO PROVIDE A CERTAIN 
for you, since it lights the display and 0070: AMOUNT OF SOFTWARE COMPATIBILITY BETWEEN THE SYM AND 
waits for the key to be pressed. It also 0080: KIM MONITORS. THIS WILL MAKE IT EASIER TO CONVERT 
debounces the keyboard, and converts 0090: PROGRAMS WRITTEN FOR THE KIM TO RUN ON THE SYM. 
the key code to ASCII. The KIM routine, 0100: 
on the other hand, reads the keyboard 0110: TIME DEPENDENT CODE IS NOT SIMULATED 
and returns with a binary number cor- 0120: ‘ 
responding to the key pressed. It does 0130: NO ATTEMPT IS MADE TO DUPLICATE THE KIM MONITOR, 
not wait to debounce the keyboard, nor 0140: ENTRY POINT FOR ENTRY POINT. RATHER, THESE ARE 
does it light the display. This makes it 0150: THE MAIN ROUTINES AS USED IN ‘THE FIRST BOOK OF 
easier to program the keyboard indepen- 0160: KIM. 


dently of the display. It is also more 
work, by the way. 


0170: 

0180: 0170 TRANSO # $0137 TRANSLATE TABLE LESS OFFSET $11 
The SYM routine LRNKEY is a closer 0190: 0170 PZSCR § $00FC PAGE ZERO SCRATCH LOCATION 
approximation to the routine we want. 0200: 0170 POINTH * $00FB EXECUTE RAM POINTER HIGH 
It scans the keyboard once, converts 0210: 0170 POINTL *# $O00FA EXECUTE RAM POINTER LOW 
the key code to ASCII, and returns. Con- 0220: 0170 IWH * $O00F9 TERMINAL CHARACTER INPUT 
veniently, the value in the X register is 0230: 0170 SYMPAD ® $4400 OUTPUT PORT & ON 6532 
the index that was used to get the ASCII 0240: 0170 SYMPBD * $A402 OUTPUT PORT B ON 6532 
equivalent of the key pressed. This table 0250: 0170 SYMDIS * $A640 DISPLAY BUFFER 
Starts with the code for ZERO, so the 0260: 0170 SYMSCA ® $8906 LED OUTPUT DISPLAY BUFFER 
value in X is neatly set 0 through F for 0270: 0170 SYMKEY ® $8923 CHECK FOR ANY KEY DOWN 
those keys, and all we need to do is 0280: 0170 SYMLEN # $892C DETERMINE KEY PRESSED 
transfer it to the A register. 0290: 0170 SYMSEG ® $8C29 LED SEGMENT CODES 

0300: 

0310: 0100 ORG $0100 OUT OF THE WAY ON STACK PAGE 
The SYM has more keys than the KIM, 0320: 
so these are set to the KIM value for 
‘no key” on the assumption that the KIM 
routines wouldn’t know what to do with 0330: PELHFTRSHTLTSSESHSSSTHRCTHTRESOLERESSEEE SEEDS 
them anyway. For the remaining keys = 9340: * SYM-1 VERSION OF KIM SCAND & SCANDS ROUTINES 
we just use a translate table that is 0350: SESHLSOEHERARSRE HATE LERERSETESPAEEEAOSREEREEES 


somewhat arbitrary since the keys are 0360: 
not labeled identically. See the program 0370: 0100 AO 00 SCAND LDYIM $0000 ENTER HERE TO GET BYTE 


listing for which keys are translated to 0380: 0102 B1 FA LDAIY POINTL ADDRESSED BY POINTL 

what, and note that the SYM shift key is 0390: 0104 85 FQ STA INH AND MOVE IT TO INH AREA 

made equivalent to the KIM ‘no key” o400: 

value. 0410: 0106 AO 00 SCANDS LDYIM $0000 ENTER HERE IF INH ALREADY STORED 
0420: 0108 AS FB LDA POINTH POINTH PIRST TO DISPLAY BUFFER 
0430: 010A 20 7A 01 JSR  SPLITP 


The KIM routine KEYIN has a very close 


equivalent in the SYM entry KEYQ. The O4NO: O10D AS FA LDA = POINTL THEN DO POINTL 
main difference between them is which 0450: O10F 20 1A 01 JSR = SPLITP 
way the zero flag gets set if a key is 0450: 0112 A5 F9 LDA INH LAST BUT NOT LEAST DO INH 
down. The KIM returns a zero condition oT 0114 sc Ne 30 JSR STNSCA SYM MO HT & R 
if a key is down, and the SYM retunsas agp, SMP SYMSCA SET SYM MONITOR LIG ETORN 
SEE or $00 ate oe ine Goes Is load 2 ogo0: O11A 48 SPLITP PHA SAVE ORIGINAL 
gister to reverse 

0520: 011C 4A LSRA SHIFT HI HALF TO LO HALF 

0530: O11D 4A LSRA 
The reason the X register is loaded with OShO: O11E BA LSRA WHICH IS 4 BITS DOWN 
$FF for a ‘no key” Is that LRNKEY in 0550: OIF AA Tax PUT INTO X AS AN INDEX 
the SYM monitor does an INX immedi- 0560: 0120 BD 29 8&C LDAX SYMSEG GET APPROPRIATE SEGMENT CODE 
ately before returning if entered with- 0570: 0123 99 4O A6 STAY SYMDIS AND PUT INTO DISPLAY BUFFER 
out a key down. With X set to $FF upon 0580: 0126 C8 INY BUMP 'Y¥’ FOR NEXT BYTE 
entry, this will result in a zero condition 0590: 0127 68 PLA NOW GET ORIGINAL VALUE BACK 
from the LRNKEY routine. Since none of 0600: 0128 29 OF ANDIM $000F KEEP ONLY LOW ORDER 4 BITS 
the ASCil codes are zero, we can set the 0610: O128 AA TAX AND REPEAT SEGMENT PROCESS 
appropiate key value in the GETKEY 0620: 012B BD 29 8C LDAX SYMSEG 
routine. This way a JSR KEYIN followed 0630: O12E 99 40 A6 STAY SYMDIS 
by a JSR GETKEY will be consistant 0640: 0131 C8 INY INCLUDING BUMP FOR NEXT BYTE 
with the KIM routines. 0650: 0132 60 RTS AND RETURN 
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Writing to the dispiays Is, again, a jittle 
more difficult than changing a set of 
addresses. It is also something that 
gets spread through the program, so | 
can’t write a nice software solution as 


tii iit iit 


* SYM-1 VERSION OF KIM GETKEY SUBROUTINE 
SERSCEOSTCESHFSCAESHSESASAEESESEOR TREES 


| did for the other routines. Fortunately, 0133 20 2C 89 GETEEY JSR  SYMLAN GET SYM VERSION OF THE KEY 
you can usually perform the same func- Ri 
tions on the SYM as on the KIM in either 0136 DO 03 BRE, REYDWN BRANCH IF ANY KEY IS DOWN 
the same or a smaller number of bytes 0138 AQ 15 GKNONE LDAIM $0015 ELSE SET TO XIM NO KEY DOWN 
Less is as good as the same, since one OSB BA xevowy Tx x BOLDS INDE TMTO ASCII TASLE 
can always add NOP'’s to pad it out. 3 
013C CO 11 CMPIM $0011 NEED TO FUDGE KEY VALUE? 
The first problem is to set the data O13E 90 07 BCC GERTS OO0-OF IS OF 10=AD(KIM)=CR(SYM) 
direction registers on the I/O ports to oD M4 Us nce pane IED Rees tS A WO were 
output to the displays. The normal code 
to look for in the KIM programs would be 0144 BD 37 01 LDAX TRANSO ELSE TRANSLATE THROUGH TABLE 
the following: 0147 60 GERTS RTS AND RETURN 
LDAIM $7F 0148 12 TRANST = $12 *+"(KIM)='—/+' (SYM) 
STA $1741 o149 11 = $11 "DA' (KIM)='>/<' (SYM) 
014A 15 = $15 SHIFT (SYM)=NO KEY (KIM) 
On the SYM we need to set the two OMB 13 = $13 *G' (KIM) 'GO/LP* (SYM) 
direction registers at $4401 and $A403. Onc 14 = $14 *PC* (KIM)=*REG/SP' (SYM) 


in order to do this in the same number of 
bytes we can make use of the SYM moni- 
tor CONFIG routine as follows: 


LDAIM $09 
JSR = $89A5 


This routine sets both I/O ports to out- 
put, and additionally stores zero in both 


SSSSSASSSPSESESASSKUASHESTSSTLASCHEDSSCCSA 


* SYM-1 VERSION OF KIM KEYIN SUBROUTINE 
SESESEFAEE CHD OAEREETESRERSAeESESESERESE 


O18D 20 23 89 KEYIN JSR SYMKEY GET KEYBOARD STATUS 


VO registers. 0150 DO 03 BNE KEYIN2 REVERSE ZERO FLAG 
; _ 0152 A2 FF LDXIM $OOFF KIM NOT ZERO - NO KEY - FF FOR LRNKEY 
individual digit selection Is also differ- 0154 60 RTS 
ent between the two systems, but both 0155 a2 00 KEYIN2 LDXIM $0000 AND IS ZERO IF KEY IS DOWN 
use a multiplex concept. This means 0157 60 RTS 
that one I/O register determines which 
segments get lighted, and one register 
determines which digit is selected. The 
oath nD Stared ite ane entmost watt FESSKSSSKTCESTCTOTETSTFSHTSTSESSHETOCESTHSESESESSSESEE 
is j ” digi * SYM-1 VERSION OF KIM CONVD ROUTINES $1F48 & $1F4E 
to theright by two for each’ digit an aaepnevcecseabectenetec eee Oe cea te ce eeececesnete 
The SYM starts with a value of zero to ae at FC CONVD ay PZSCR SOvE TIBBLE OF A To cHDEX REGISTER 
jocation $A402. This needs to be in- 
routines that increment and then check 0161 6D 00 Ay STA SYMPAD OUTPUT THE SEGMENT CODES 
location $A402 enables the onboard 0166 88 LIGHT DEY 
beeper, so if your routine suddenly 0167 DO FD BE LIGHT 
Starts beeping at you, don't be sur- 
prised. Tell everybody how great your 
sound effects are. 
The actual segment codes are written 
to location $1740 on the KIM and $A400 0169 8C 00 Al ST  SYMPAD TURN ALL SEGMENTS OFF FOR NEXT ONE 
on the SYM. These two addresses are 016C ES INX BUMP X TO NEXT DIGIT 
one-for-one replacements. In order to 016D A4 FC LDY PZSCR RESTORE THE Y REGISTER 
convert routines that use these ports, O16F 60 RTS AND RETURN 
change the address of the store instruc- 
tions to the display, and find the place 
where the digit selector is bumped 
twice to get to the next digit, then simply 
NOP the second bump. SYMBOL TABLE 2000 2096 
One final note about the timers. The cepre oie vehi OOS areas oI SETI oes 
KIM timer returns zero to a read before KEYINR 0155 LIGHT 0166 POINTH OOFB POINTL OOFA 
ihe clock has timed out, whereas the — pzscr OFC SCAND (0100  SCANDS 0106 —«SPLITP 0114 
SYM returns the current clock count. SYMDIS A640 SYMKEY 8923 SYMLAN 892C SYMP4D A400 
This means that, in addition to changing SYMPBD a4o2 SYMSCA 8906 SYMSEG 8¢29 TRANSO 0137 
the addresses, you will also have to TRANST 0148 


change the branch after the check for 
clock expiration. 


Expand KIM - 1 Versatility 
in Systems Applications 


Techniques and programs are presented which permit 
the simple addition of six sense switches or an ASCII 


keyboard to the KIM. 


The KIM-1 microcomputer, produced 
by MOS Technology, Commodore and 
Rockwell International, is a single-board 
computer which gained early popularity 
with hobbyists. it also was adopted by 
industry for small controller applica- 
tions. Some of these computers have 
been expanded into fairly !arge systems, 
in colleges as well as industry. One 
reason for the easy acceptance of the 
KIM-1 was the on-board keypad and six 
digit display. These features, along with 
a slow but extremely reliable audio 
cassette interface for program storage, 
made KIM-1 one of the first microcom- 
puters which did not require an operator 
interface more expensive than itself. 


The on-board keyboard and seven- 
segment display, which permits system 
operation without an teletype of ter- 
minal, is implemented in a way which 
permits addition of both an ASCII exter- 
nal keyboard and sense switches. Fig. 1 
shows the key-pad implementation 
where U24 enables one of three banks of 
seven keys, and U2 (an MCS6530 pro- 
grammable interface device detects a 
key closure in any one of the seven 
switch columns. 


BD 41 17 
8D 43 17 


8D 42 17 
AD 40 17 


BE 42 17 


The keyboard encoding scheme works 
as follows: U2 is programmed for output 
on lines PB1-PB4 to dribe U24, a four 
line-to-ten-line decoder which has 
active-low outputs. Note that the least 
significant bit of U2's B port (PBO) is not 
used in the keyboard drive, so values 
written to Port B are incremented by two 
to select the next higher keybank. For 
example, writing 0016 to Port B selects 
Row keys, 0216 enables Row 1 and 0416 
selects Row 2. 


On Port A of U2 (lines PAO-PA6), which 
are programmed as inputs, a closure of 
(for example) key 8 will cause a logic 
zero to be input on PAS whenever key 
Row 1 is active (low). KIM’s operating 
system software then decodes Row 
1/PA5 as key 8 and returns the value 
0816 in the accumulator. 


A fourth keybank (Row 3) is also im- 
plemented by this matrix, but the stan- 
dard KIM-1 has only the TTY/KYBD 
switch installed on this row. FIG. 1 
shows six additional switches In- 
plemented on Row 3; with proper pro- 
gramming, these can be used as sense 
switches or Imput lines for address vec- 
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tors in an expanded interrupt scheme. 
Listing 1 gives an example of the pro- 
gramming required to detect activity on 
Row 3 inputs. 

The programming strategy requirea tor 
any such inputs is to enable PAO-PA6 
lines for input and sequentially activate 
the driving lines (outputs of U24 In this 
case) to their on (low) state. The program 
then reads all input lines, masks and in- 
verts the data and returns to the calling 
program which tests the accumulator for 
any ‘one’ bits. It is then the 
programmer's responsibility to repeat the 
scan periodically and test to see if the 
same data is present (a noise spike would 
be gone on a second scan) or has chang- 
ed after some period of time. This testing 
allows for switch bounce—multiple 
closures of the contacts—a 
characteristic of all switches. Very good 
Switches will bounce for a minimum of 
one or two milliseconds, while worn or 
cheap switches may bounce for up to 25 
miltiseconds. On the other hand, any 
operator who is trying to make a very 
short switch closure will find It difficult to 
release a switch earlier than 50. 
milliseconds after closure. Consequently, 
reading keys with software is a fine art! 


LISTING I 
LDA #$00 SET PADD (KEY INPUT LINES) 
STA PADD FOR INPUT 
LDA #$3F SET PBDD (ROW DEFINITION) 
STA PBDD FOR OUTPUT 
LDA #$06 ENABLE KEYBOARD 
STA PBD ON ROW 3 
LDA PAD READ SENSE SWITCHES 
AND #S7E MASK OFF TTY/KYBD SWITCH 
EOR #S7E INVERT SWITCH DATA 
LDA #$00 DISABLE 
STX SBD KEYBOARD 
RTS RETURN TO CALLING PROGRAM 


Any keyboard with ASCII outputs is 
likely to have both a debounced output 
and a strobe which becomes active when 
there is a key pressed and the data has 
been debounced. Typically, the key data 
is active high (positive logic), but the 
strobe can be either active high or active 
low. The ASCII keyboard input described 
here does not use the strobe; instead, the 
key matrix is scanned in the same man- 
ner as is the normal KIM keypad. Fig. 2 
shows the necessary connections—a 
pull-down transistor for each output bit of 


60 OUT 


SIX DIGIT DISPLAY 


the keyboard. Any logic “‘one” data from 
the keyboard wilt input a low on the same 
lines as the KIM keypad. Note that some 
keyboards output only six bits, so the 
Strobe can be implemented on Column G. 


Listing 2 shows a “bare bones” scan 
program which will return to the calling 
program as did Listing 1. The basic 
scheme here Is to initlallze the ac- 
cumulator to FF4g and get the input data 
by a logic AND with the input port. The 
data is then inverted (Exclusive OR) and 


LISTING II 


LDA #$80 
STA PADD 
LDA #SFF 
AND SAD 

EOR #S$7F 
BEQ OUT 

LDA #$80 
RTS 


K’s D 
Row 3 


Figure 1:KIM-1 Keyboard allows six sense switches to be Bit 0 


added. 


Bit 1 
Bit 2. 


ASCil 
INPUT 


tested for any logic one bits. Note that 
the calling program could also per- 
manently set the port for input and 
somewhat abbreviate the program seg- 
ment shown. If the strobe is implemented 
on Column G as mentioned above, the 
6502 BIT instruction followed by a test of 
the overflow status bit (BVC or BVS) will 
identify strobe activity. Note that the on- 
board keypad must not be active when 
the ASCII keyboard Is being used, and 
that the normal KIM keypad scan 
routines will not properly interpret the 
ASCIl input. 


ENABLE KEYBOARD 

INPUT LINES 

INITIALIZE ACCUMULATOR 
INPUT POSSIBLE KEYBOARD BITS 
INVERT ANY BITS PRESENT 
TEST FOR DATA PRESENT 

SET FLAG FOR NO INPUT 
RETURN TO CALLING PROGRAM 


KIM KEYBOARD MATRIX 


Figure 2: Simple interface allows addition of ASCI! \ 
keyboard to basic KIM-1. 
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KIM-1 Tape Recorder Controller 


Some techniques for using a 6502 micro for controlling 
switches are presented. The particular application is for 
a KIM to control a tape deck, but the concepts are quite 


broad in scope. 


OBJECTIVE 


The Kim-1 microcomputer ‘is to be 
used to control the four functions (play, 
rewind, wind and stop) of a Tandbert 
9000X open-ree! tape deck by way of the 
remote control socket at the back of the 
deck. This contro! will enable the user to 
program the computer to automatically 
locate and play a sequence of songs 
previously selected. 


METHOD 


The heart of the operating program 
is the tape counter displayed on the ad- 
dress LED’s which simulate the 
mechanical tape counter on the deck 
itself. The actual program increments or 
decrements this counter, compares the 
desired location to the present counter, 
and then directs the tape deck on the 
result of that comparison. A description 
of each of the blocks of the program flow 
chart follows: 


initialization- 


Here the counter, data register, 
and x and y registers are cleared. 
The data direction register is set 
to FF for an output condition. the 
x-register is loaded with the first 
song sélection at location 0000 
plus the y-register. The contents 
of both registers are then saved, 
using a STORE subroutine. 


Compare- 


The high order byte of the counter 
(OOFB) Is compared with the con- 
tents of location 0050 pilus the 
x-register. This location is reserv- 
ed for the high order bytes of any 
song starting location. If the result 
is elther positive or negative, the 
program branches to wind or re- 
wind respectively. If the result is 
zero, the low order byte must be 
compared. Because of differing 
branch Instructions, there are 
separate wind compares and re- 
wind compares. Each of these 
takes the low order bytes of the 
counter (OOFA) and compares it 
to the contents of location 0060 
pilus the x-register. The program 
then goes to either wind, rewind or 
play, depending on the results. 


Wind- 


A 08 Is placed in the data register 
to put the tape deck in the wind 
mode. The tape counter is in 
cremented by adding 01 to OOFA. 
A delay loop Is set up with the in- 
terval timer and the counter 
displayed using the SCANDS 
subroutine. Jump to cmp. 


Rewind- 


A 01 is placed in the data register 
to put the tape deck in the rewind 
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mode. The tape counter is 
decremented by subtracting 01 
from OOFA. A delay loop is again 
set up with the interval timer and 
the counter displayed using the 
SCANDS subroutine. Jump back 
to Compare. 


Stop/Wait- 


A 04 is stored in the data register 
to stop the tape deck. Another 
delay loop is utilized to wait for 
the deck to come to a halt before 
putting it in the play mode. The 
counter is displayed on the LED’s. 


Play- 


The contents of the x-register are 
placed in OOF9S so that the next 
display will show the song selec- 
tion while playing it. A 02 is placed 
in the data register to put the tape 
deck in the play mode. The 
counter is incremented by adding 
Of to OOFA. A delay loop is set up 
using the interval timer. The high 
order byte of the counter is now 
compared to the contents of loca- 
tion 0070 plus the x-register. This 
ls the location of the ending loca- 
tion of the selected song, high 
order byte. If the high order bytes 
are not equal, the program bran- 
ches back to Play. If the high order 
bytes are equal, the low order 


bytes must be compared. The con- 
tents of the low order byte of the 
counter (OOFA) are now compared 
to the contents of the address 
0080 plus the x-register which is 
the address of the ending loca- 
tion, low order byte, of the 
selected song. If the low order 
byte comparison results in a zero, 
the end of a song has been reach- 
ed. The program sits in a delay 
loop walting for the deck to catch 
up. The y-register is then In- 
cremenied so that the next song 
selection can be made. Jump back 
to Begin. 


The interface- 


Through experimentation with the 
remote control socket, it was 
found that a short between any of 
the function pins and ground 
would cause the deck to operate 
in that mode. A current of 2mA 
was measured with a short circuit 
to ground. Later, it was found that 
a resistor to ground also worked. 
With 2K between the function pin 
and ground, a lower current of 
1mA was obtained. This was ideal 
for our purposes. Relays were con- 
sidered as the Interface element 
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Acawweved 


wre pesieee 
Pte rien 


REwinio 


REEL-TO-REEL INTERFACE 


DIGITAL 
SWITCH 


FIGURE f 


but rejected because of cost and 
layout considerations. 


The 4016 CMOS analog/digital 
switch was decided upon. It is an 
integrated circuit containing four 
independent switches of the con- 
figuration in figure 3. An overall 
view of the basic interface is pic- 
tured In figure t. The actual wiring 
diagram is seen in figure 2. A 
5-volt signal coming from any of 
the outputs PAO-PA3 will cause a 
switch closure in the following 
order: 


PAO-Rewind (01) 
PAi-Play (02) 
PA2-Stop (04) 
PA3-Wind (08) 


The numbers in parenthesis in- 
dicate the number that must be in 
the data register for that particular 
function to be performed. The 
resistors in figure 2 are for current 
limiting through the switch. 


SUMMARY 


For the most part, the project was a 
success. The only problem encountered 
was that of trying to synchronize the 
simulated tape counter speeds to those 
of the mechanical one on the tape deck. 
To better explain this, figure 4 is helpful. 
As can be seen in figure 4a, the KIM’s 
tape counter Is a very tinear device unlike 
that of the deck’s very non-linear counter 
in figure 4b. in the wind or rewind modes, 
the two could never be matched because 
of this non-linearity. Therefore, it was 
decided upon to only demonstrate the 
program’s ability to control the tape deck 
and locate selections on the computer 
tape counter. This the program did well. 


The ultimate way to circumvent this 
problem would be to actually couple the 
computer to the tape deck through an op- 
tical or magnetic pick-up on one of the 
tape reels. In this way, the KIM would 
always know precisely where the tape 
was located. If, for some reason, this was 
not possible, a linear ‘approximation 
could be programmed into the computer 
to simulate the acceleration curve of the 
mechanical tape counter. This would con- 
sist of three or four loops of differing 
speeds cascaded together to form a 
curve like that of figure 4c. 


In recent years, commercial 
manufacturers have been incorporating a 
similar program-locating feature into 
cassette decks. The most notable Is the 
Sharp RT-3388A which has its own 
dedicated microprocessor which will 
locate a particular section of the tape re- 
quested and plays from there on; it does 
not have the ability of playing any se- 
quence of songs asked for by the user. In 
this respect, our program is superior. 
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REWIND/WIND COUNTER 


REWIND/WIND COUNTER 


REWINO/WIND COUNTER 


A: KIM-1 Tape Counter 


B: Tape disk counter 


C: Linear approximation 


Figure 4 


Address Instruction Label 


0210 
0211 


A5 FF 


4 74 02 


18 
AQ 08 
&D 00 17 
A5 22 
65 FA 
85 FA 
A5 21 
65 FB 
85 FB 
Ag O1 
85 25 
A9 3E 
8D 07 17 
20 1F 1F 
2C 07 17 
10 F8 
C6 25 
DO EF 
EA EA 
4C 38 02 


38 

A9 01 
8D 00 17 
AS FA 

E5 22 

85 FA 


“AS FB 


E5 23 
85 FB 
A9 01 
85 24 


BEGIN 


*PULL 


COMPHI 


COMPLO 


REWIND 
PLAY 
WINDC 


WIND 


LOOP 1 


Op Code Operand 


STA 


DISPLAY JSR 


REWIND 


BIT 
BPL 
DEC 


#SFF 
PADD. 
#$00 
#$00 
0000 


#$5F 
#10241.T 
SCANDS 
I.T. 
DISPLAY 
0025 
LOOP1 


*PULL 


#301 
PAD 


INITIALIZE 


COMPARE 


WIND 


REWIND 


Address Instruction Label 


02BB 
02BD 


A 


AQ SF 
8D 07 17 


8D 00 17 
A9 OA 

85 26 
AS FF 
8D 07 17 
20 1F 1F 
2C 07 17 
10 F8 
C6 26 
DO EF 
AS 02 
8D 00 17 
18 

Ad 22 
65 FA 
85 FA 
A5 21 
65 FB 
85 FB 
Ad 04 

85 27 
A9 65 
80 07 17 


LOOP3 LDA 


DISPLAY JSR 


PLAY LDA 


LOOPS LDA 
DISPLAY JSR 


BIT 
BPL 


PULL PLA 


Op Code Operand 


A$5F 
#10241.T. 
SCANDS 
I.T. 
DISPLAY 
0024 
LOOP2 


SCANDS 
I.T. 


0021 
FS 

OOFB 
#901 
0027 
#$FF 


+10241.T. 


SCANDS 


F9 

#304 

PAD 

#S0A 

0026 

#$FF 
410241 .T. 


REWIND (cont'd) 


STOPIWAIT 


PLAY 


SUBROUTINE 
PULL 


Address Instruction Label 

035C 68 PLA 
035D AA TAX 
035E A5 31 LDA 
0360 48 PHA 
0361 Ad 30 LDA 
0363 48 PHA 
0364 60 RTS 
03°70 68 STORE PLA 
0371 85 30 STA 
0373 63 PLA 
0374 85 31 STA 
0376 8A TXA 
0377 48 PHA 
0378 98 TYA 
0379 48 PHA 
037A A5 31 LDA 
037C 46 PHA 
037D A5 30 LDA 
037F 48 PHA 
0380 60 RTS 


MEMORY ALLOCATION 


OP Code Operand 
Address 


051 
0031 005 


O05F 
0030 


- 0061 


0030 


SUBROUTINE STORE 


Label 
Selections 1-15 


Starting Locations High 


Selections 1-15 


Starting Locations Low 


Selections 1-15 


Ending Locations High 


Selections 1-15 


Ending Locations Low 


Song Sequence Numbers 


Operating Program 


Miscellaneous Locations Used 
Within Main Program 


Card Shuffling Program for KIM - 1 


Your 6502 might play poker like Amarillo KIM, but does it 
always have to pass the deal? Not if you teach it to 


shuffle cards! 


Entertaining friends with computer 
games certainly makes all the effort of 
assembling a personal computer worth- 
while. However, if you happen to have a 
small microcomputer with limited mem- 
ory and'very few software tools, there 
are not many games available. As an 
example, most card games need a ran- 
dom number generator to shuffle cards. 


The standard method to generate ran- 
dom numbers (as used in most BASIC 
interpreters) is not suitable for this pur- 
pose. Since some of the bare-bone com- 
puters do not even have the software to 
perform multiplication, it is asking too 
much for them to generate floating- 
point random numbers. To make these 
small computers more entertaining, a 
simpie method to shuffle cards is de- 
scribed here. This method is implement- 


ed in a KIM. The machine instructions 
use about 80 bytes. There is lots of mem. 
ory left for playing card games. The only 
drawback Is that it requires the operator 
to press the interrupt key in order to stop 
the program. 


The card shuffling program consists of 
two portions. The second portion is the 
main program that shuffles cards. It just 
keeps on shuffling until the interrupt.key 
is pressed. The first portion is an inter- 
rupt service routine used to ensure an 
orderly ending of the program. The pro- 
gram is relocatable, and the two portions 
can be in separate locations. 


This feature makes it easy to incorporate 
the shuffling program into a complete 
card-playing program. However, it is im- 
portant that the user initialize the infer- 
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rupt vectors to jump to the Interrupt ser- 
vice routine. 


To keep the computer code relocatable, 
the Initialization of the 2 byte address is 
left to the user. The storage area for the 
cards, together with 4 bytes of working 
space, are in page 0. In this program, the 
storage area starts at address 0001. 
However, the program can be changed 
easily to move the storage area to other 
locations in page 0. 


The deck of cards is stored in an array at 
locations (hex) 0001 to 0034. The value of 


each address is distinct and is between 
hex 1 to 34 (decimal 1 to 52). After the in- 
terrupt key is pressed, the content of 
these addresses represents a deck of 
random cards. 


The program uses a simple random num- 
ber generator to generate random point- 
ers with values between 1 and 52. The 
first card in the deek is interchanged 
with the card selected by the random 
pointer. The position of ali the cards is 
next shifted one place so that the last 
card becomes the first, the first card 
becomes the second, and so on. This is 
to make sure that the first card is always 
changing, and a different card Is inter- 
changed with each randomly selected 
card. A random pointer is again 
generated and the whole operation is 
repeated. 


After a sufficient number of operations, 
the deck is suitable for card games. One 
or two hundred shufflings are sufficient. 


When the interrupt key is pressed, the 
interrupt service routine sets a memory 
location, hex 0038, that serves as a flag 
to signal the end of the shuffling. This 
routine also restores the accumulator 
and the X and Y registers. {t is important 
that the user initialize the interrupt vec- 
tor to address the service routine in- 
stead of the operating system. 


The sequence of cards being shuffled is 
actually predetermined because it Is 
calculated from a prescribed series of 
operations. However, if the stop com- 
mand is activated by a human operator 
the cards can be very random. It takes 
about 10°‘ second to do one shuffle. 
The time to activate the stop command 
can easily vary by more than 0.1 Second. 
Thus, the number of shufflings can be 
uncertain by about 1000, which is suf- 
ficient to generate a deck of random 
cards. 


0200 
0200 
0202 
0203 
0205 
0206 
0208 
020A 
020C 


020D 


020F 
0211 
0212 
0214 
0215 
0217 
0219 
021B 


021D | 


O21E 
021F 
0220 
0222 
0223 
0225 
0227 
0228 
022A 
022B 
022D 
022F 


0230 


0232 
0233 
0235 
0237 
0239 
023B 
023D 
023F 
0241 


0243 
0245 
0247 
0249 
O24B 
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ORG $0200 
LDXIM $36 
L1 TXA 
STAZX $00 
DEX 
BNE L1 
STX2 $38 
LOOP LDAZ $35 
L2 SEC 
SBCIM $34 
BCS L2 
CLC 
ADCIM $35 
TAX 
STAZ $35 
LDAZX $00 
STAZ $37 
LDAZ: $36 
ASLA 
ASLA 
CLC 
ADCZ $36 
CLC 
ADCIM $01 
STAZ $36 
CLC 
ADCZ $35 
L3 SEC 
SBCIM $33 
BCS L3 
CLC 
ADCIM $34 
TAX 
LDYZX $00 
LDAZ $37 
STAZX $00 
LDXZ $35 
STYZX $00. 
LDAZ $38 
CMPIM $00 
BEQ LOOP 


* INTERRUPT SERVICE ROUTINE 


LDAZ $F3 
LDYZ $F4 
LDXZ $F5 
INCZ $38 
RTI 


EPROM for the KIM 


Circuits and suggestions for the selection, installation 
and utilization of EPROM. This fully buffered EPROM 
board is easy to build and use. It requires no special 


interfacing. 


One of the handiest additions for the ex- 
pansion-minded KIM owner to consider 
is an EPROM board. There's nothing 
like being able to summon your favorite 
programs as soon as the computer is 
turned on. Most people think of PROM's 
in terms of holding BASIC or an operat- 
ing system, but there’s no reason your 
favorite games and utilities shouldn't 
be there too. The most heavily used rou- 
tines in my 2708s are Hypertape and 
Browse, both from the The First Book 
of Kim, and the XIM Teletype utilities. 
Tiny BASIC will go in PROM as soon as 
| can find time to relocate it. QUICK, a 
reaction-time game from The First Book 
of Kim, is there too; it’s fun, and a nice 
way to show off the computer. 


There are lots of articles from which one 
can build EPROM programmers, and 
some of these are specifically for use 
with KIM. The most EPROM for the 
money currently seems to be the 2708. 
Prices in the $6 range for 1K 8-bit words 
(650 ns access time, fine for KIM) are 
hard to beat for any type of computer 
memory. Just one of these things holds 
as much as the entire user RAM! 2708/ 
2716 programmers are also available as 
kits or assembled from dealers, but most 
are quite expensive. An exception Is 
Optimal Technology's unit, which is in 
the $50 range; that’s what | have, and it 
works beautifully. Incidentally, their 
programming software can be relocated 
easily by hand, and it now resides ina 
PROM too. 


There seems to be considerably tess in- 
formation available on using PROMs 
with KIM. Most of the commercial 
boards and construction articles are for 
the S-100 bus, which doesn’t helo the 


1 uf 35v 
tantalun = 
each (two) 


KIM owner a bit unless he already has a 
KIMSI or similar interface. Fortunately, 
a fully buffered EPROM board with ad- 
dress decoding is very easy to build and 
use with KIM with no special inter- 
facing. My unit is shown on the accom- 
panying schematic. It was wire-wrapped 
by hand on a small piece of Vector perf- 
board, using sockets held in place with 
G.E. silicone cement, and contains ad- 
dress decoding for up to 16 EPROM'’s 
beginning at address C000 hex. 


Two type 8T97 hex buffers are used to 
buffer the lower ten address lines, since 
all the EPROM’s are in parallel across 
this part of the address bus. Two sec- 
tions in the second 8T97 were left over, 
and were used to buffer KIM’s lines 
AB14 and AB15 rather than let them be 
unused; substituting a 74LS00 in place 
of the 7400 would provide a similar load 
on the address bus, but | wanted to buf- 
fer as many address lines as | could to 
make further expansion easier. The 
74LS154 four-to-sixteen line decoder 
provides the CS signal that gates a dif- 
ferent EPROM for each 1K of memory 
space, and the NAND gate activates 
this decoder when bits 14 and 15 of the 
address bus are both high (address 2 
C000). 


The vector-fetch and decode-enable sig- 
nals required by KIM are generated In 
my system by expansion RAM boards; 
you will have to provide them yourself 
if you don't already have some form of 
memory expansion. Although not shown 
on the diagram, 0.01 or 0.1 mf bypass 
capacitors were used from +5V, + 12V, 
and —5V points to ground on most ICs. 
A LM320T-5 IC regulator provided -—5V 
for the 2708s from my existing power 
supply. 
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There is a beneficial side-effect from 
using EPROM's which is not enough 
talked about. Use of these devices pro- 
vides a strong encouragement toward 
cleaning up and refining your program- 
ming habits! tf you are not already care- 
ful that your program contains “clean” 
or non self-modifying code, you will 
quickly get into the habit if you have 
any kind of ROM board. 


A certain amount of ingenuity can often 
show you how to adapt other's soft- 
ware to PROM. If a table in page zero 
needs to be initialized before running a 
program, just append your own short 
program to move the data block from 
PROM down to page zero, and then 
transfer control to the start of the main 
program. | like to write short driver rou- 
tines like this when PROMming a pro- 
gram that requires register initialization 
from the keyboard to run different cases. 


If the program is going to be kept in 
PROM for years, it is easy to forget 
which numbers go where and at what 
times. I'd rather just have to remember 
a single starting address for each sepa- 
rate case, and let my driver program do 
the initializing. For Instance, | begin 
Microchess at one address for super- 
blitz play, at another for blitz, and at a 
third for regular play. These addresses 
set the proper constants for each level 
of play; the original version required 
changes of instructions in the program 
itself, which is not possible in ROM. 


if a program is self-modifying, and you 
can't figure out how to fix it without 
starting over, don't despair; put it as is 
(unrelocated) into PROM, along with a 
little routine that copies It into lower 
memory and then transfers control to 
it there. 


Using such a routine, the program ap- 
pears to the user as though it is execut- 
ing directly from PROM except, of 
course, that the lower memory is not 
available for other uses during execu- 
tion. If that is not a problem, you could 
even store a// your programs in PROM, 
preceded by a move routine, and be 
spared the work of relocating or modi- 
fying any of them! If you have lots of 
expansion RAM, this is probably the 
most hassle-free way to go. However, 
you choose to do It, relocating and run- 
ning direct from PROM, or moving and 
running an unmodified program, using 
EPROM’s will be a lot of fun. And think 
of all the tape you'll save! 
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KIM Scorekeeper 


Always on the lookout for new applications for the basic 
KIM-1, a general purpose, multi-player scorekeeper is 
presented. The techniques can be readily modified for 
use on a SYM-1 or AIM 65, and the scorekeeping function 
can be included as part of larger game programs. 


Ever have a problem getting someone 
to keep score for your friendly game of 
Hearts? Well KIM would like to be a 
volunteer. KIM will keep up to nine 
separate scores for you to display and up- 
date from the keyboard. Each player can 
have from 0 to 9999 polnts, sufficient for 
most card games or other games needing 
a scorekeeper. Bridge fans can drop the 
low order zero from their scores (150 
points for a grand slam??). | must credit 
the idea to a hardware project in October 
Popular Electronics by Joseph Fortuna. 
He used decade counters and 7-segment 
LED drivers to two-digit scores. A 
telephone dial was used to increment to 
counters. | immediately saw a job that 
KIM could do,with software. Naturally 
with all the power of KiM available | had 
to improve and expand the idea. 


The KIM SCOREKEEPER uses nine 
2-byte memory registers to save the 
players’ scores. Normally one of the 
piayers’ scores is displayed continuously 
in the KIM display. The high order digit of 
the display is the player number, 1 to 9. 
The next digit is blank and the four low 
order digits contain that player’s score. 
To display another player's score the PC 
(Player Change) key is pushed and the 
display goes blank. Then a number from 1 
to 9 is pushed to get that player’s score in 
the display. After a player is selected, the 
score can be updated. A player's score 
can be increased by entering the number 
to be added to the score and pushing the 
‘E’ (Enter) key. Up to four digits can be 
entered. During entry of a number, the 
display shows the number being entered 
in the four low order digits with the two 
high order digits blank. Digits are shifted 
through the display as they are entered. If 
more that four digits are entered, the high 
order digits are shifted out and lost as in 
the KIM monitor. 


The player’s score can be decreased by 
pushing the ‘D’ (Decrease) key to set sub- 
tract mode. When the subtract mode is in 
effect, any number entered wil be sub- 
tracted from the player's score when the 
‘E’ key is pushed. The high order digit of 
the display will show a minus sign when 
the number being entered Is to be sub- 
tracted. Subtract mode stays in effect un- 
til the ‘+’ key is pushed to reset the pro- 
gram to add mode. The ‘+’ and ‘D’ keys 
are effective anytime except when perfor- 
ming the player change function. If any 
key except 0 to 9, ‘+’ or ‘D’ is entered dur- 
ing the update operation the display 
returns to the current player. The ‘C’ 
(Clear) key may be used to zero the cur- 
rent player's score. 


As shown by the programs, SCORE- 
KEEPER has two main display loops. One 
displays the current player and his score 
while walting for a command from the 
keyboard. The other displays the number 
being entered while inputting digits from 
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the keyboard. The code is divided into 
subroutines for the sake of modutarity 
and readability. The KIM subroutine 
GETKEY Is used for communication from 
the keyboard, and the HEX to 7-segment 
conversion table in the KIM ROM is used 
to generate characters. The display is 
driven directly by the subroutine DISSEG. 
DISSEG is more flexible than the KIM 
subroutine SCANDS since It allows in- 
dividual control of each segment of the 
KIM display. Thus any pattern can be 
displayed. DISSEG reads data from 
memory at SEGBUF and dumps It directly 
to the KIM display high order digit first. 
This subroutine could be used in a wide 
variety of games for KIM. 


KIM SCOREKEEPER is an example of 
KIM’'s ability to replace and improve a 
hardware gadget. There Is nothing | like 
more than finding a hardware function 
that KIM can replace with software. 
Someday | will calculate the weight of the 
hardware that my KIM has displaced. 


HHS SSSESSSSESSSSSERKSSSLEAERAEHRERREHDS 


* 
+ 


* 
KIM SCOREKEEPER * 


# VERSION 1 SEPTEMBER 1979 * 


# 


HEKESERSSSSEGSSIRSEKESKESEESSSERSTESESSESECE 


$6268 


ZEAO PAGE STORAGE 


82608 SCORER ORG 
8208 PLAYEA * 
8260 MODE * 
a@26¢ CURPLA *# 
6260 CURKEY * 
82068 TeuP * 
8208 INDEX *# 
6208 SEGBUF * 
8208 NUM@UF #* 
B280 ZERO * 
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$2e6e 
$2094 
$2095 
$8896 
$6897 
$9996 
$8699 
SDRO9F 


PLAYER SCORE TABLE 
BeADD ELSE SUBTAACT 
INOEX TO CURRENT PLAYER 
LAST KEY ENTERED 
REGISTER SAVE AREA 
REGISTER SAVE AREA 
DISPLAY BUFFER 

NUMBER INPUT BUFFER 
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KIM — The Tunesmith 


A number of programs have been offered which permit 
you to play music on your micro. The program presented 
here also permits you to compose music on your KIM, as 


well as save It and play it back. 


Anthony T. Scarpelli 
RR 1, Box 426 
N. Windham, ME 04062 


Have you ever wanted to compose 
music, but knew nothing about how to 
go about doing it? Do you lack a musical 
instrument and have a tune going 
through your head and don't know what 
should go after the first few notes? Well 
here is a program for a basic KIM-1 that 
will help you compose a tune, and you 
don’t even have to know how to read or 
write music. 


| have really never learned how to play a 
musical instrument, and | never have 
time to practice. Yet every once in a 
while | want to try out a few notes going 
on in my head, or | just want to see how a 
couple of notes sound together, to see /f 
they have any effect on me. So what I did 
was to develop a program that uses a 
basic KIM-1 and the speaker circuit 
shown on page 57 of the KIM-1 User 
Manual that plays a tune I compose one 
note at a time. | use the keypad as data 
eniry to place into the program notes of 
two octaves, including sharp notes, with 
four possible lengths and a rest or no 
note. | used the lettered keypads as well 
as the 9 which looks like a small G for all 
the notes which are seven in number, 
basically ABC DE F andG. 


Tunesmith Operation 


Once you start the program, you press 
one of the note letters. It will sound the 
appropriate note. If you want the sharp 
for that note, if it has one (B and E do 
not), press 5. To get the upper octave of 
the note you want you press 7, and If you 
want the upper octave sharp of the note, 
press 5 first, then 7. The keys 1, 2, 4,and 
8 will give you a whole note (1), a half 
note (2), a quarter note (4), and an eighth 
note (8). After you choose your note, you 
choose your length. If you don’t want the 
note, start again, only this time the 
jength is not automatically a half note as 
it would be when you first start out, 
you'll have to change it to what you 
want. 


Now that you have your nice note that 
sounds just right, press 3. This will save 
the note and place it in a tune table. To 
know that the note is indeed saved, the 
disptay will flash a SAVE. You have to 
hold the 3 key down until the SAVE is 
seen, though. Now the chosen note willl 
be played and you can pick another note, 
or a rest which is 0. The procedure is the 
same for a possible 72 note tune. If you 
like your tune and want to write it down, 
press the + key. The display will show 
you the first note of the tune, and every 
time you hit the 3 key, the next will be 
displayed. If you want to start again, 
press the DA (Do Again) key. 


The Tunesmith Program 


We can go over the program now. Table | 
is a listing of the keypad numbers and 
what they represent. The main program 
starts at 0200 and initialization goes on 
to 021A. From 021C to 0228 we test the 
keypad and 022A to 022E we test for the 
first time through the program. This step 
eliminates any noise in the speaker while 
choosing the first note. 0230 to 0236 
gets the program to step through all the 
notes, and 0238 to 023D delays the pro- 
gram, not only to give you more time to 
choose a note, but also to put a space 
between the beginning and ending of the 
tune. 0242 to 0248 is for the beginning 
silence. 024A thru 0263 loads the note 
you have chosen into a temporary loca- 
tion. 0265 to 026E will jump to all the 
subroutines which we'll explain in a 
minute. 0271 thru 027B tests for the save 
key, which you press if you want that 
particular note. From 027B to 0283 we 
test for the DA key. 0285 to 028F will 
cause the program to jump to the routine 
which will allow us to see what notes we 
have so that they can be written down 
and saved for the ‘Top Ten”. 0295 to 
O2A9 sets the save flag, resets the note 
counter, and because the program goes 
deep into the stack territory, resets the 
stack pointer to avoid trouble. 
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The Get High subroutine is the first one 
we come to. From 0356 to 035E we test 
to see if we want a high note. If we don’t, 
we return from the subroutine. If yes, 
we'll first test to see if it's to be a sharp 
note that is to go to the next octave. If it 
is, then from 0366 to 036A we'll load the 
high sharp note Into the temporary loca- 
tlon, otherwise from O36F to 0373 we'll 
load just the next octave note. The Get 
Sharp subroutine is similar and the Get 
Length subroutine is simple enough. 


The Play Tune subroutine is next. From 
0300 to 0306 we set up the first note, 
then we play it. This is the unsaved note 
we are trying out. Then we'll test for a 
save flag from 0313 to 0317, and test for 
a note or notes in the tunetable up to 
031D. If there is one or more notes in the 
tunetable, from 031F to 0330 we'll play 
them. If we had a save for the temporary 
note, we reset the save flag, store a rest 
so we don't hear the saved note twice, 
then load the note into the next position 
of the tuntable, and we'll also put our 
chosen length into the length table; all 
this from 0333 to 0345. Since we saved 
the note, not only do we need some in- 
dication that it was saved, we also need 
to indicate that our finger is on the 3 
keypad long enough for the program to 
catch the keypad entry, so at 0347 we go 
to the subroutine that displays a big red 
“SAVE”. At 034A we play all our notes 
again, and then go back to the main pro- 
gram to get another note, then back here 
again so we always hear our tune. 


In the Tone subroutine, at 02DD and 
O2DF we set the ports to outputs; and at 
O2E2 and E4 we start KIM’s internal 
timer. We load the note frequency, and 
when it runs down we change the output 
to its other state, whatever it was. If you 
hook a speaker circuit on the port as in 
the KIM manual, a note will be produced 
as we repeat this procedure every time 
the timer times out at 02EF; and if we do 


this for a length of time determined by TUNE SMITH 
the note length at 02F9, we have just 


played a note in our tables or one we're BY ANTHONY T. SCARPELLI 
testing out. MAY 1979 

Our Save subroutine starts at O3AA 

where we load a number for a particular MICRO NUMBER 13 

time we want to keep the SAVE letters JUNE 1979 

on. Next at OSAE and 03B0 we set the COPYRIGHT (C) MAY 1979 BY 
direction registers and since we want TERIST, INC. 
only 4 digits lit we load the number 4 into THE COMPU ‘ 

the X register. When we store one of six KIM MONITOR REFERENCES 


numbers, from 09 to 13 into the location 
$8D(1742), one of the six digits will be 


lit, and then If we load a particular hex PAD = * $1700 DATA REGISTER 
number representing a letter, number or PADD # $1 701 DATA DIRECTION REGIS TER 
other shape into another location TIMER * $1704 SET TIMER 
SAD({1740), then the seven segment TTIMER * $1707 TEST TIMER 
display will light. We also need some STIMER * $170F START TIMER 
delay, because if we did not, the display SAD * $1740 SYSTEM DATA REGISTER A 
would light and go out in a couple of SADD * $1741 SYSTEM DATA DIRECTION A REG 
microseconds, which few of us could SBD * $1742 SYSTEM DATA REGISTER B 
see. All this is taken care of from 0389 to PBDD * $1743 SYSTEM DATA DIRECTION REG B 
03CC. And finally we want to end the KEYIN * $1F40 KEYPAD INPUT 
tune after 72 notes so we wil GETKEY * $1F6A GET KEYBOARD INPUT 
automatically go the the Display Notes 
routine from O3CE to 03D4. We want to 
keep count of how many notes we save PAGE ZERO LOCATIONS 
so at 03D7 we increment the note count. 
0000 GRG $0000 

if we have a nice little tune running 
through our circuits and we say to LOW NOTE TABLE 
ourselves, “Hey, that’s a catchy tune 
that might make the top 40,” then we'll - 
need some way of finding out what notes oooe FB NOTE . $FB G 
are in the tunetable so that we can write 00G1 DF ~ SDF A 

. = $C6 B 
them down. The Display Notes routine 0002 Cé B C 
does just that. What we want this sec- 0003 BB = $B 
tion to do is to display a lettered note, to 0004 Aé = $A6 D 
show that it is a sharp and/or a high note, 0005 93 = $93 E 
and to show what its length is. We want 0006 BA = $BA F 
it to stay on the display until we're ready 
for the next note and we need some in- HIGH NOTE TABLE 
dication that the note has changed when 
we do go to the next note. Finally we TE = 7B C 
want the option of starting again. So poe i HINO - ee A 
here we go. 0009 61 = $61 8B 
From 0100 to 010A we test the counters QO0A 5B = $58 c 
to see if we've reached the end of our OO00B 5] = $51 OD 
tune table, then we take our note and OO0C 48 = $48 ~=OCE 
length and put them into a temporary O00D 43 = $43 OF 
location from 010D to 0115. From 0117 to 
011D we check for a rest; if it isn’t one LOW SHARP NOTE TABLE 
then at 011F on we determine what note 
it is. What | did was to compare the OOOE ED SHPNOT = SED G SHARP, A FLAT 
unknown note to the note table and for OOOF D2 = $D2 A SHARP, B FLAT 
every wrong comparison increment a 0010 01 - $01 NO NOTE 
count. We aiso have four groups of 7 _ $80 C SHARP, D FLAT 
notes and to determine what group, | GO1l BO ~ , 

= oC D SHARP, E FLAT 

subtract a number until | get a carry flag. 0012 3 $ ’ 
This then tells me the group and also the 0013 01 = $02 NO NOTE 
note. The group indicates whether the 0014 83 = $83 F SHARP, G FLAT 
note is high, sharp, or high/sharp. We 
load the correct shape for the display on HIGH SHARP NOTE TABLE 
this information. If it was just a rest, at 
0180 we load a zero shape. At 018A to = Fc 
0198 we test for the length and then ble pes HISHRP . ah , SHAG? a a 
store the length shape. Up to 01BC we 0017 01 - $01 NO NOTE. 
display the shapes as before, only this 0018 56 - $56 C SHARP, O FLAT 


time, as we go through a test for the next 
note, and “do again”, we keep the 
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0019 
OO1A 
0018 


CO1C 
001D 
OCLE 
COLF 


0020 
0021 
0022 
0025 
0024 
0025 
0026 
0027 
0028 
0029 
002A 
0028 
002C 
002D 
002E 
O02F 
0030 
0031 
0032 
0035 
0034 
0035 
0036 
0037 
0038 
0039 
003A 
0038 
003C 
003D 
OO3E 
OO3F 


040 
0041 
0042 
0045 
0044 
0045 
0046 
0047 
0048 
0049 
004A 
0048 
004C 
004D 
OO4E 
OO4F 
0050 
0051] 
0052 


0053 


4C 
01 
oF 


00 
00 


F7 


FC 
BS 
DE 
F9 
Fl 


00 


DELTIM 
TIMED 
TIMEC 
SAVFLG 
TLENTH 
NOTPTR 
KEYPTR 
TNOTE 
HIFLG 
SHPFLG 
NOTNUM 
PRMNOT 
FSTFLG 
PLENTH 
TNTNUM 
NE XNOT 
DELAYA 
DELAYB 
PNTPTR 
DELAYC 
TTBPTR 
NTBPTR 
NOTCNT 
DNTCNT 
TEMNOT 
TEMLEN 
COUNT 
OF OUR 
DTHREE 
DTWO 
DONE 
LNTPTR 


CONSTANTS 


KEYLNT 


LNTH 


LNSHP 


NTSHP 


LE TNUM 


D SHARP, E FLAT 
NO NOTE 
F SHARP, G FLAT 


UNUSED 


DELAY TIME 


SAVE FLAG 

TEMP. LENGTH 

NOTE POINTER 

KEY POINTER 

TEMP NOTE 

HIGH FLAG 

SHARP FLAG 

NOTE NUMBER 
PERMANENT NOTE 
FIRST TIME FLAG 
PERM. LENGTH 

TEMP. NOTE NUMBER 
NEXT NOTE 

DELAY A 

DELAY B 

PERM. NOTE POINTER 
DELAYC 

TUNETABLE POINTER 
NOTE TABLE POINTER 
NOTCNT NOTE COUNT 
DISPLAY NOTE COUNT 
TEMP. NOTE 

TEMP. LENGTH 


LENGTH POINTER 


(1) WHOLE NOTE 
(2) HALF NOTE 
(4) QUARTER NOTE 
(8) EIGHTH NOTE 
LENGTH 


(1) LENGTH SHAPE 
(2) 

(4) 

(8) 

(G) LETTER SHAPES 


LETTER NUMBER 
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display lit. If we hit the 3 key we jump to 
a delay which blanks the display. This 
lets us know a new note has entered the 
circuits so that we can distinguish two 
or more same notes in a row. Finally we 
reset the stack pointer again and display 
the next note. If we want to start again at 
any time, we hit the DA key and off we go 
to the beginning again. By the way, the 
delay subroutine we go to is a good 
delay to get very long times. It uses the 
KIM-1's internal timer. 


So that's it. | know it is a long program, 
because of ail the explanation, but | want 
as much understanding as possible, 
because of the possibilities It holds. The 
simple tone generation can be replaced 
with a D/A converter, an erase note mode 
can be implemented, a larger scale with 
more lengths and other variables can be 
developed, and so on. There Is no limit. 
But for a beginning, with a small com- 
puter, all you potential Bachs, here It is, 
go to it. 


Table | — Keypad Representations 
A = Anote 

B = B note 

C = Cnote 

D = Dnote 

E = E note 

F = Fnote 

9 = Gnote 

0 = rest 

1 = whole note 

2 = 1/2 note 

4= 1/4note 

8 = 1/8 note 

5 = sharp 

7 = upper octave 

3 = save or display next note 
DA = Do Again 

+ = Display notes 


0054 
0055 
0056 
0057 


0058 
0059 
005A 
0058 
005C 


0050 
005D 


OF 
Oo 
0B 
09 


00 
F9 
BE 
F7 
ED 


85 3C 


01 


01 


0150 4C BA 0] 


LETTER 


TUNTBL 
LNTTBL 


* * 


DISPLAY NOTE 


DISNTS 
NXTNOT 


BEGIN 


RPT 


SUB 


NXGRPA 


ORG 


LDAIM 
STA 
LDA 
CMP 
BNE 
JMP 
LDX 
LDAZX 
STA 
LDAZX 
STA 
LDXIM 
LDA 
CMPIM 
BEQ 
CMPZX 
BEQ 
INX 
JMP 
SEC 
TXA 
SBCIM 
BCS 
LDAZX 


LDAIM 
STA 
JMP 


$0060 
$D0A8 


ROUTINE 
$0100 


$01 
ONTCNT 
DNTCNT 
NOTCNT 
BEGIN 
DOAGNS 
DNTCNT 
TUNTBE 
TEMNOT 
LNTTBL 
TEMLEN 
$00 
TEMNOT 
$01 
DISZER 
NOTE 
SUB 


RPT 


$07 
NXGRPA 
NTSHP 
DTWO 
$cO 
DONE 
DTHREE 
DISLEN 


$0E 
NXGRPB 


$06 


NTSHP 
DTwo 
$F 6 
DONE 
$C0 
OTHREE 
DISLEN 


LETTER SHAPES 


TUNE TABLE 
LENGTH TA8LE 


RESET DISPLAY NOTE COUNT 


TEST FOR END 


STORE NOTE 
AND LENGTH 


TEST FOR TEST 


TEST FOR NOTE 


TEST FOR FIRST 


GROUP 


STORE NOTE SHAPE 


TEST FOR SECOND 


GROUP 


STORE NOTE SHAPE 


STORE HI SHAPE 
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0153 38 
0154 BA 
0155 E9 
0157 B80 
0159 BA 
O15A E9 
OL5C AA 
O15D 85 
Q1L5F 85 
0161 Ag 
0163 85 
0165 AY 
0167 85 
0169 4C 


016C 38 
016D SA 
O16E E9 
D170 AA 
0171 BS 
0173 85 
0175 Ag 
0177 85 
0179 Ag 
017B 85 
0170 4C 


D180 AI 
0182 85 
0184 A9 
0186 85 
0188 85 
O1BA A2 
018C AS 
GI8E D5 
6190 FO 
0192 E8 
0193 4C 
0196 B5 
0198 85 
O19A AY 
O19C 85 
O19E AY 
Q1A0 8D 
OLAS AZ 
O1A5 AO 
01A7 BS 
GIA 8D 
O1AC BS 
OIAE 8D 
O1B1 86 
O1B2 DO 
O1B4 CA 
O1B5 10 
O1B7 A4 
01B9 88 
O1BA 84 
O1BC DO 
OBE 20 
01C1 26 
01c4 C9 
O1Cé FO 
o01cs 20 
OIC8 20 
QICE C9 


01 


Gl 


Ol 


17 


17 


1F 
iF 


iF 
IF 


NXGRPB 


NXGRPC 


DISZER 


DISLEN 
RPTB 


GTSHP 
DIS 


RPIC 
LITE 


WAIT 


SEC 

TXA 

SBCIM $15 
BCS NXGRPC 
TXA 

SBCIM $0D 
TAX 

LDAZX NISHP 
STA OTWO 
LDAIM $€D 
STA fTHREE 
LOAIM $CO 
STA DONE 
IMP —DISLEN 
SEC 

TXA 

SBCIM $15 
TAX 

LDAZX NTSHP 
STA  DTwOo 
LDAIM $ED 
STA  DITHREE 
LDAIM $F6 
STA DONE 
JMP  DISLEN 
LDAIM $F 
STA DTWO 
LDAIM $CO 
STA DONE 
STA  DTHREE 
LOXIM $00 
LDA  TEMLEN 
CMPZX LNTH 
BEQ GITSHP 
INX 

IMP RPTB 
LDAZX LNSHP 
STA  DFOUR 
LDAIM $80 
STA DELAYC 
LDAIM $7F 
STA  SADD 
LOXIM $04 
LOYIM $F 
LDAZX LETNUM 
STA SBD 
LDAZX COUNT 
STA SAD 
DEY 

BNE WAIT 
DEX 

BPL LITE 
LDY2 DELAYC 
DEY 

STYZ2 DELAYC 
BNE RPIC 
JSR KEYIN 
JSR  GETKEY 
CMPIM $03 
BEQ NEXT 
JSR = KEYIN 
JSR GETKEY 
CMPIM $11 


TEST FOR THIRD 
GROUP 


STORE NOTE SHAPE 


STORE NOTE SHAPE 


STORE SHARP SHAPE 


STORE ZERO SHAPE 


TEST FOR LENGTH 


STORE LENGTH SHAPE 
LOAD DISPLAY 

LIGHT TIME 

SET DIRECTION REGISTER 
SET UP 4 LETTERS 


AND DISPLAY 
LIGHT LETTERS 


DELAY 


GET NEXT LETTER 


DELAY 


TEST FOR NEXT NOTE 


TEST FOR START AGAIN 


0100 FO OF 
0102 DO Cé 


01D4 20 AC 
O1D7 E6 37 
GID9 A2 FF 
O1DB 9A 
Q1DC EA 
0100 EA 
OlDE 4C 04 


O1E1 A 0G 
G1E3 85 36 
O1lES 4C 00 


0200 


0200 A? 00 
0202 85 23 
0204 85 2A 
0206 85 2C 
0208 Ad Dl 
O20A 85 60 
020C 85 A& 
O20E 85 27 
0210 AI 10 
0212 85 24 
0214 AI 06 
0216 85 25 
0218 AS OF 
021A 85 26 
021C 20 40 
O21F 20 6A 
0222 C5 26 
0224 FO 2D 


02 


02 


if 
MF 


0226 C9 00 


0228 FO 20 
022A AS 2C 
022C C9 00 
022E FO 12 
0230 C6 26 
0232 C6 25 
0234 16 02 
0236 30 DC 


0238 A6 30 
023A CA 

0238 86 30 
023D DO 0D 
O23F 4C 65 


0242 Cé 26 
0244 C6 25 
0246 10 D4 
0248 30 CA 


024A A901 
024C 85° 2C 
O24E 85 27 
0250 4C 65 


02 


02 


BEQ DCAGNB 
BNE DIS 
NEXT JSR DELAY 
INC DNTCNT INCREMENT DISPLAY NOTE 
LDXIM $FF © COUNT. RESET STACK 
TXS POINTER 
NOP PADDING 
NOP 
MP -NXINOT 
DOAGNB LOAIM $00 
STA NOTCNT 
IMP = NUTUNE 
MAIN PROGRAM 
ORG $0200 
NUTUNE LOAIM $00 INITIALIZE TUNE 
STA SAVFLG 
STA NDTNUM 
STA FSTFLG 
LDAIM $01 
STA TUNTBL 
STA LNTTBL 
STA TNOTE 
LDAIM $10 
STA TLENTH 
NUNOTE LDAIM $06° INITIALIZE NOTE 
STA NOTPTR 
LDAIM $0F 
STA KEYPTR 
PLAYA JSR KEYIN TEST KEYPAD FOR NOTE 
JSR GETKEY 
CMP KEYPTR 
BEQ  GTNOTE 
CMPIM $00 ‘FOR REST 
BEQ GTREST 
LDA FSTFLG TEST FOR FIRST TIME 
CMPIM $00 
BEQ NOPLAY 
DEC KEYPTR SET UP FOR NEXT NOTE 
DEC NOTPTR 
BPL DELYA 
BMI  NUNOTE 
DELYA LDXZ DELAYA DELAY 
DEX 
STXZ DELAYA 
BNE PLAYB 
IMP SYNOTE 
NOPLAY DEC KEYPTR SET UP FOR NEXT NOTE 
DEC NOTPTR 
BPL PLAYB 
BMI  NUNOTE 
GTREST LOAIM $01 LOAD REST 
STA FSTFLG 
STA TNOTE 
IMP SYNOTE 


0253 A9 Ol 
0255 B35 2C 
0257 A6 25 
0259 AS OO 
0258 65 28 
0250 85 29 
025F B5 00 
85 27 
86 32 
20 56 
20 86 
20 DA 
20 00 
20 40 
2D 6A 
C? 03 
0279 FO 1é 
0278 20 40 
O27E 20 6A 
0281 C9 ll 
0283 FO 13 
0285 20 40 
0288 20 6A 
0288 C9 12 
0280 FO 15 
026F OO 88 


029] AS 01 
0293 85 23 
0295 4C 14 


0298 
029A 
029C 
0296 
O29F 
02A0 
O2Al 


AS 00 
85 36 
A2 FF 
9A 
EA 
EA 
4C 00 


02A4 
O2A6 
02A7 
02A8 
O2A9 


A2 FF 
9A 
EA 
EA 
4cC 00 


O2AC 
O2ZAE 
0280 
0282 
0285 
0288 
O2BA 
028C 
O2BE 
02C0 
02C2 


AS 20 
85 21 
AS FF 
8D 04 
2C 07 
10 FB 
Cé 22 
DO F2 
Cé 21 
DO EE 
60 


GTNOTE LDAIM $01 


O03 SYNOTE 
03 


1F 
if 


SAVE 
02 
DOAGN 


02 
DNOTES 


0) 


STA 
LOXZ 
LDAIM 
STA 
STA 
LDAZX 
STA 


LDXIM 
TXS 
NOP 
NOP 
JMP 


LOAD FIRST NOTE FLAG 
FSTFLG 
NOTPTR LOAD CHOSEN NOTE 


PNTPTR 

GETHI GET HIGH NOTE 
GETSRP GET SHARP NOTE 
GTLNTH GET LENGTH 

PLATUN PLAY NOTE 

KEYIN TEST TO SAVE NOTE 
GETKEY 

$03 

SAVE 

KEYIN TEST OFR START OVER 
GETKEY 
$11 
DOAGN 
KEYIN TEST FOR DIPSLAY NOTER 


DA = DO AGAIN 


$01 SAVE NOTE 
SAVE LG 


NUNOTE 


$00 
NOTCNT 
$F F 


RESET NOTE COUNTER 
RESET STACK POINTER 
PADDING 

NUTUNE 
$F 4=- RESET STACK POINTER 


DISNTS JUMP TO DISPLAY NOTES 


DELAY SUBROUTINE 


DELAY 
DELA 
TEST 


47 
17 


LDA 
STA 
LOAIM 
STA 
BIT 
BPL 
DEC 
BNE 
DEC 
BNE 
RTS 


DELTIM GET DELAY VALUE 
TIMED 
$F F 
TIMER 
THIMER TEST TIMER 

TEST @RANCH IF NOT RUN OUT 
TIMEC REOUCE TIME VALUE 
DELA START AGAIN 

TIMED REDUCE DELAY VALUE 
DELA BRANCH IF NOT DNOE 


LOAD TIMER 


0300 


0300 AS 2A 
0302 85 2E 
0304 AS 00 
0306 85 2F 
0308 AS 27 
030A 85 2B 
O30C A5 24 
O350€ 85 2D 
0310 20 DD 
0313 AS 25 
0315 C9 02 
0317 FO 1A 
0319 AS 2A 
0318 C9 00 
0310 FO 13 
O351F A6é 2F 
0321 BS 60 
0323 85 28 
0325 BS A8 
0327 85 2D 
0329 20 DD 
032€ E6 2F 
O32E C6 2E 
0330 10 ED 
6332 60 


0333 AS 00 
0335 85 23 
0337 AP 0} 
0339 85 27 
0338 £6 2A 
G33D AG 2A 
O3F AS 28 
6341 95 60 
0543 A5 24 
0345 95 AB 


8547 20 AA 03 
S54A 4€ 00 05 


02 


TONE SUBROUTINE 
ORG $0200 
TONE LDAIM $01 OPEN PORT 
STA PADD 
SOUND LDAIM $20 START TIMER 
STA STIMER 
NOTEX LDXZ PRMNOT NOTE FREQUENCY 
NWAIT DEX 
BNE NWAIT 
INC PAD FOGGLE OUTPUT 
LDAIM $60 TEST COUNTER 
BIT TTIMER 
BMI 8 TIMOUT 
IMP sNOTEX 
TIMOUT DEC PLENTH NOTE LENGTH 
BNE SOUND 
RTS 


PLAY TUNE SOBROUT INE 


ORG 
PLATUN 


PLAYC 


$0300 
NOTNUM SEF UP FIRST NOTE 
TNTNUM 
$o0 
NE XNOT 
TNOTE 
PRMNOT 
TLENTH 
PLENTH 
TONE 
SAVF LG 


PLAY NOTE 


TEST FOR SAVE 


$01 


SAVEX 
NOTNUM 
$00 

RE TURN 
NE XNGT 
TUNTBL 
PRMNOT 
LNT TBL 
PLENTH 
TONE PLAY NOTE 
NEXNOT SET UP FOR 
TNTNUM NEXT NOTE 
PLAYC 


TEST FOR NOTE 
(NOT REQUIRED) 


LOAD NEXT NOTE 


LOAD NEXT LENGTH 


RESET SAVE FLAG 
NO PLAY 


$00 
SAYFLG 
$01 
TNOTE 
NOTNUM LOAD NOTE INTO 
NOTNUM TUNETABLE 

PRMNOT 

TUNTBL 

TLENTH LOAD LENGTH 
LNTTBL INTO LENGTH TABLE 
DISPLY 

PLATUN 


0356 


0356 20 40 1F GETHI JSR 


0359 20 6A 
035C C9 07 
O35E 00 15 
0360 A5 29 
0362 C9 00 
0364 FO 09 
0366 A6 32 
0368 B5 15 
O36A 85 27 
O56C 4C 75 
O36F AG 32 
0371 85 Q7 
0373 835 27 
0375 60 


0386 


0386 20 40 
0389 20 6A 
03eC C9 0S 
O36E DO OA 
0390 A9 01 
0392 85 29 
0394 A6 32 
0396 BS OE 
0398 85 27 
O39A 60 


O3AA 


O3AA AS 80 
O3AC 85 33 
O3AE AD 7F 
035680 8D 41 
0383 A2 04 
0385 AO FF 
0387 85 53 
0389 8D 42 
O38C BS 58 
O38E 8D 40 
03C1 88 

03C2 00 FD 
O3C4 CA 

O3C5 10 EE 
03C7 Ad 33 
G3C9 86 

Q3CA 64 33 
O3scC DO ES 
Q3CE AS 36 
0300 C9 48 
0302 00 03 


lf 


03 


lf 
MF 


0304 4C 00 Ol 


GET HIGH SUBROUTINE 


€n356 


KEYIN TEST FOR HIGH NOTE 


JSR GETKEY 
CMPIM $07 

BNE RETRNA 

LDA SHPFLG TEST SHARP NOTE 
CMPIM $00 (NOT REQUIRED) 
BEQ LOADHI 


LOXZ PNIPTR LOAD HIGH SHARP NOTE 
LDAZX HISHRP 


STA 
JMP 


LOADHT LDX 


TNOTE 
RETRNB (COULD HAVE BEEN RTS) 
PNTPTR LOAD HIGH NOTE 


LDAZX HINOTE 


STA 
RETRNB RTS 


TNOTE 


GET SHARP SUBROUTINE 


ORG 
GETSRP JSR 


STA 
RETRNC RTS 


DISPLAY SAVE 


DISPLY LOAIM 


STA 


LDAIM 


REPEAT 
LIGHT 


WAITY 


JMP 


$0386 


KEYIN TEST FOR SHARP NOTE 
GETKEY 
$05 
RETRNC 
$01 
SHPF LG 
PNIPTR LOAD SHARP NOTE 
SHPNOT 

[NOTE 


LOAD SHARP FLAG 


SUBROUT INE 
$O3AA 


$80 LOAD DISPLAY 

DELAYC LIGHT TIME 

$7F SET DIRECTION REGISTER 
SADD 

$04 SET UP 4 LETTERS 

$F AND DELAY 

LETNUM LIGHT LETTERS 


DELAY 


GET NEXT LETTER 
LIGHT 
DELAYC DELAY 


DELAYC 

REPEAT 

NOTCNT TEST FOR 72 NOTES 
$48 48 HEX = 72 DECIMAL 
INCNOT 

DISNTS 


03D7 E6 36 INCNOT INC NOTCNT INCREASE NOTE COUNT 0364 A6 236 
0309 60 RTS O3E6 DS 40 
O3E8 FO O05 
GET LENGTH SUBROUTINE O3EA C6 5F 
O5EC 10 FO 
OSDA AY 03 GTLNTH LDAIM $03 LOAD LENGTH POINTER O3EE 60 
O3DC 85 3F STA  LNTPTR O3EF BS 44 
O3DE 20 40 1F KEYTST JSR  KEYIN TEST KEYPAD FOR O3F 1 85 24 
O5E1 20 6A IF JSR  GETKEY LENGTH O3F 3 60 


LDXZ LNTPTR 
CMPZX KEYLNT 


BEQ LODLNT 
DEC LNTPFR 
BPL KEYTST 
RTS 
LODLNT LDAZX LNTH LOAD LENGTH 
STA FLENTH 
RTS 


Performing Math Functions 
in Machine Language 


lf you are afraid to try doing mathematical functions in 
assembly language, then this article may help you get 


started. 


Since addition, subtraction and shif- 
ting are the only arithmetic functions 
available in machine language for most 
small computers, it becomes necessary 
to find methods to perform other 
mathematical operations using addi- 
tion, subtraction, and shifts in combina- 
tion with other commands available on 
the programmer’s microprocessor. 


Multiplication is an example of an 
operation that Is cammonly performed 
in this way. Let’s look at a particular ex- 
ample. Suppose we want to multiply 187 
by 345. It is obvious that we can clear a 
register and add 187 a total of 345 times 
to arrive at the answer, but we soon 
discover that it is more efficient to per- 
form the same function by combining 
additions with shifts. 


Using the shift command, we would 
add 3 187s, then shift left, then add 4 
187s, the shift left, then add 5 187s to ar- 
rive at the final product. Thus, we have 
replaced 345 additions with 12 additions 
and 2 shifts. In the same way, repeated 
subtractions may be combined with 
shifts to implement a division algorithm. 


Division and multiplication algorithms 
are often described in the programming 
manuals that come with a computer. A 
programmer soon needs other mathe- 
matical functions and must find a way to 
perform them with a Ilmited Instruction 
set and limited computer memory. If the 
functions become too complicated, one 
must add memory or go to a higher tevel 
language, such as BASIC. 
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The purpose of this article Is to 
demonstrate the power of the lowly addl- 
tion and subtraction commands by 
developing an algorithm for extracting 
the square root of a number. The al- 
gorithm Is described and a flow chart is 
presented along with a 6502 Ilsting for 
the KIM-1. 


The square root aigorithm to be 
presented here is based on the equation: 


n 
2... (2k-1)=n?;n an integer greater than 0 


k=1 

which says, in English, that the sum of 
the first n odd integers is equal to the 
square of n. For example: 


143454749=25=5 


That Is, the sum of the first 5 odd In- 
tegers is equal to 52, or 26. This equation 
is easily proven true for all positive in- 
tegers by mathematical induction. 


The method implemented here is to 
subtract first 1, then 3, then 5, and so on, 
from the number whose square root is 
desired. The number of subtractions, 
jess 1, that it takes to reduce the originai 
number to a nonzero negative number is 
the square root. For example, if X = 25: 


25-1 = 24; 24-3 = 21; 21-5= 16 
16-7 = 9; 9-9 = 0; 0-11= 11 


Since it took 6 subtractions to reduce 
25 to a number fess than 0, the answer is 


STORE 1 IN 
MEM 


NO 
ADD 1 TO 
Y REGISTER 


Flowchart 


6 — 1 = 5. Notice that this method 
gives only the Integer part of the answer, 
20 if X had been any value from 25 to 35, 
you would have arrived at the same 
answer. Remember—when you take the 
square root of a number, your answer 
has only about half as many significant 
digits as the number. 


The original value (NUM) Is placed In 
the accumulator. The answer will be in 
the Y register and also displayed on the 
KIM’s seven segment LEDs (POINTH). 
Notice that the algorithm as.described 
below will not handie very large 


numbers. To use this for practical pro- 


blems, it will have to be extended to 
multiple precision. 
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The coding to implement the routine is 
given below. While the addresses are 
given for the KIM-1, a few address 
changes should make it possible to Im- 
plement this routine on any other 6502 
based system. The number you want the 
square root of goes in location 0001, 
then set the address to 0000 and GO. 
The answer will be displayed In POINTH, 
the left two LEDs of the KIM display. The 
code given is probably not optimum—! 
am a relative newcomer to machine 
language coding. If you come with an im- 
proved version of this routine, I’d ap- 
preciate receiving a copy of it. The exam- 
ple shown is set to take the square soot 
of $10. 


SCUARE RGCT ROUTINE 


ALFREC QJ, BRUEY 


CRG = $0000 
MEM * $OO1A 
PCINFR * ¢O0FB 
START * TiCcar 
10 BEGIN LEAIM $10 
Ol LDYIM $01 
1A STX MEM 
oo EDYIM $00 
1GGP SEC 
1A SEC ME. 
08 EM1 = 8=©6STOP 
INY 
1A TNC MEM 
1A INC =| MEM 
0&6 O00 JMP  =LCuUP 
FE STGP STY = POINTh 
4F 4c JMo START 


Clocking KIM 


While you probably are not going to use your $180 KIM to 
replace your $18 digital clock, a lot can be learned about 
proper use of the KIM and 6502 by building a clock as an 
exercise. This example includes use of the IRQ interrupt, 
driving the display, and calculating time. The program is 
intentionally NOT optimized, providing a challange for 


the reader. 


Oc 


When | first laid eyes on KIM, 
something inside my head screamed out 
at me. It said, “That six digit display was 
just made to be a clock display.” Not be- 
ing the type of person who likes getting 
yelled at, | decided to look into the idea. 


The idea may seem trivial or worth- 
less, but the design of a clock program is 
both chailenging and educational. When | 
first started this project | had onty owned 
my KiM-1 stightly more than a month, and 
| had not made use of some of the KIM’s 
features (such as the interval timer and 
interrupt capabilities). ! had read the MOS 
Technology manuais carefully, but some 
things had to be learned the hard way 
-like the fact that decimal mode does not 
effect Increments and decrements, PB7 
of the 6530-03 must be wired to !RQ on 
the 6502 by the user, and how to use the 
KIM’s displays. | learned through ex- 
perience. 


A clock program is not totally 
useless, either. Outside of being a good 
program for keeping the processor busy, 
it also could be valuable when run with 
other programs. If, for instance, you had 
your KIM connected to an A/D converter, 
the clock program would enable you to 
take readings at specified times during 
the day. Or, when you are going to be 
away from home, your microprocessor 
could turn lights, radios, etc. on and off 
as a deterrent to burglary. And, if you had 
to scrape together your fast dollar to buy 


your KIM, and the old alarm clock just 
croaked, you can build an alarm to hang 
on your micro with parts from your tool 
box (see KIM-1 manual, page 57). You 
would then be the proud owner of the 
most intelligent alarm clock on the block. 


A project such as this is an excelient 
way to become familiar with the features 
of your microprocessor. And, although 
there are several obstacles to be over- 
come, none are too difficult to surmount, 
given a little thought. The following 
discussion, intended for the KIM-1 could 
also serve as a guide for the development 
of a clock program on a similar system. 


The first difficulty encountered in 
designing a clock program is a parallel 
processing problem: how to scan a 
display (or execute some other process) 
while at the same time, count the 
microseconds as they whiz by. Parallel 
processing on the KIM-1 can be achieved 
by the use of the 6502's Interrupt 
capabilities. And since one of our pro- 
cesses is a simple counting mechanism, 
we can use the interval timer on the 
6530-03 as our second “processor”. The 
next two problems revolve around the in- 
terval timer. 


The KIM’s interval timer Is only 
capable of timing intervals of 0.261102 
seconds or less (with a 1MHz crystal). 
Problem number two results because of 
this. We need to simulate, through soft- 
ware, an interval timer able to time inter- 
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vais of up to one second. This can be ac- 
complished by writing a value(s) into the 
interval timer until a certain number of in- 
terrupts has occurred, and then updating 
the time. But, it is not quite that simple. 


Which brings us to problem number 
thret?. We want to be as efficient as possi- 
ble, which means we want to interrupt 
normal processing as little as possible. 
Thus, as large a value as possible should 
be written into the timer. The problem, the 
most difficult of all, is; what value(s} to 


‘write where, and how many times. The 


discussion must now become a little 
more detailed. Keeping efficiency in 
mind, we want to delay the maximum 
value between interrupts. as many times 
as possible, without exceeding one -se- 
cond. This means that we should write a 
$FF into the + 1024 location three times. 
This will give a delay of (3°255° 1024)us, or 
0.216640 seconds tess than one 
(1 — 0.783360). 


As you can see, this value is less 
than the maximum interval. The largest 
value, less than 0.216640 seconds, that 
we can write to the interval timer is 
(211* 1024)us, or 0.216064 seconds. About 
now you are probably thinking, “Oh! Holy 
Bit Bucket, will this never end?” But don’t 
fuse a power supply, this tedious process 
is coming to an end. Now, let’s see. If we 
write a 9 into the +64 location, that will 
give us a delay of 576ys, and a grand total 
of exactly one second. Success! We have 
accomplished our task. But, wait. We've 


got some software overhead to consider, 
right? Right. The software which 
simulates this interval timer, and the soft- 
ware which updates the time must be 
taken into consideration. The amount of 
time allocated to the execution of this 
software will vary slightly for different 
programs. But 32us seems to be a suffi- 
clent amount of time. So we want our 
final delay to be 544s (instead of 576). 
We can easily achieve this by writing 68 
into the +8 location. 


What do we have so far? We have 
three delays of (255*1024)us, one delay 
for (211°1024)us, and one delay of 
(68*8)us; giving us a grand total of 999,968 
us. (Although not the only combination of 
intervals which yelld one second, this is 
the most efficient from the standpoint of 
the Interrupted process.) Now, we need to 


take a look at the software necessary to’ 


simulate this timer. 


The code needed to simulate a one 
second interval timer is given in listing 1. 
The first section of code gives us the 
delay of (3°255°1024), assuming that 
“NUMDLY’” is initialized to one (1). The se- 
cond group of instructions gives the 
delay of (211* 1024), and the third group 
gives the delay of (68*8). To assure that 
your Clock program will be accurate, you 
should determine how much time your 
software will actually require. When 
calculating the amount of software 
overhead for your particular program, 
remember that the execution time of in- 
structions executed after the timer has 
been written into, should not be included. 
This is because the timer will have 
already started counting down, resulting 
in an overlap of the countdown and in- 
struction executions. Taking Listing 1 as 
an example, and assuming “NUMDLY” is 
less than three (3), all instructions before 
“INCDLY” should be included, but the In- 
crement and restore Instructions should 
not be, since they are executed after the 
timing begins. 


The code in Listing 1 would be con- 


tained In an Interrupt program, which 
consists of instructions to do the follow- 


Ing; 

1. save all registers on the stack, 

2. determine If one second has elaps- 
ed, 
if not then (5), else, 

3. add one second to the time, 


4, reset “NUMDLY” and the timer, 
and, 


5. restore the registers from the 
stack. 


A block diagram of the process is 
given in Figure 1. The coding for the inter- 


SAVE 
ALL 
REGISTERS 


<> 
<> 
<> 


SET 
NUMDLY 
TO O 


rupt program occupies about 96 bytes of 
memory (most of it is used to update the 
time). 


The updating code must: 


1. add 1 ta the seconds, if not 60 then 
(4), else zero seconds and 


2. add 1 to the minutes, if not 60 then 
(4), else zero minutes and 


3. add 1 to hour, if 13 (or 25 for a 24 
hour clock) set hour to 1, else 


4. continue. 
Since time uses decimal digits, it is 


necessary to load the byte Into the ac- 
cumulator and perform an add; an incre- 


nent would not be decimal. The code to 


update the seconds is given In Listing 2 
as an example. 


Figure 1 


RESTORE 
THE 
REGISTERS 


RETURN 
FROM 
INTERRUPT 


The preceding information should 
ald you in writing your own ciock pro- 
gram. The coding examples and intervals 
mentioned earlier should make the pro- 
cess painless. The intervals should pre- 
duce a clock accurate to within about 5 
minutes a year. The only interval which 
might require adjustment would be the 
tast one. If this adjustment turns out to be 
more than one, in either direction, check 
your code to make sure it is accurate. 


Let me mention a few more things tc 
help you avoid trouble. Don’t forget that 
any program which is to run coincidentai- 
ly with the clock program you must /n- 
Itilalize the Interval timer and counter 
(NUMDLY) at the outset. Also, after you 
have loaded the clock program into 
memory, you must also store the starting 
address of the program In the IRQ inter- 
rupt vector locations. And, last but not 
least, connect the PB7 pin of the 6530-03 
to the IRQ pin of the 6502 (A-15 to E-4). 


The clock program | have described 
contains the basic features of any digital 
clock. it could be expanded to keep track 
of the month, day, year, and/or Just about 
anything else you could want. If you are 
willing to spend the time, the clock can be 
as accurate as the hardware will allow. 
Theoretically, my clock program should 
be accurate to within less than 2 minutes 
a year. In practice, | set the program bv 
WWY and let It run for three days straight. 
At the end of this time, the seconds were 


stilt clicking by, right on the nose. This brewers. (1 hope no one is going to run this article, and the program itself, wilt be 
should be enough accuracy for ail but the their clock program for a solid year.) as useful to others as it has been to me. 
most exacting and finicky of home- Hopefully, the information information In Good Luck!! 


Listing 1 


INTERRUPT SERVICES ROUTINE TO RUN A REAL-TIME 
CLOCK ON A MOS TSCHNOLOGY KIM-1. 


WRITTEN BY : RONALD A GUEST. 
COPYRIGHT 1976 BY RONALN A. GUEST 


9020 ORG $0020 

0020 NUMDLY * 000D 

0020 SECNDS # Q00c 

0020 MINUTS *# )O00B 

0020 HOURS *® CO0A 

0020 48 PHA SAVE REGISTERS ON STACK 
9021 8A TXA . 

0022 48 PHA . 

OOS 28 TYA . 

9024 48 PHA es 


DSLAY DETERMINED BY VALUS IN NUM MOLY. 
IF DELAY IS < 3 THEN DELAY 255 * 1024 


0025 AS 3D LDA NUMDLY 

0027 C9 93 CMPIM $03 

0029 10 OA BPL, ELAYF 

502B AQ FF MAXDLY uDAIM $FF 

002D 8D OF 17 STA 170F 

0030 36 OD INCDLY INC NUMOLY INCREMENT COUNT AND GO RSSTORE 
0932 4c 80 Of JMP RESTOR oe 


If NUMDLY <> 3 BRANCH TO ONETST 
0035 DO 08 DELAYF BNS ONE tst 
( LDAZM re 


35 D 
0037 AI D3 = 3 THEN DELAY 21181024 
9049 85 OF 17 Sta $170F 
003¢ uc 30 06 MP INCDLY 
TF NUMDLY > 4 THEN ONS SSCOND HAS ELAPSED 
003F cg 04 ONSTST CMPIM $04 
0041 Dd 98 BNE  ONESEC 
9043 ag Ay LDAIM $44 IF = 4 THEN DELAY 6888 
0048 8D 99 17 STA $170D 
9048 HC 320 00 UMP  INCDLY 
ONE SECOND HAS ELAPSED, SO, INC STORED TIME 
904B F8 ONESEC SED SE DSCTMAL MATH. 
oouc Ag oC LDA SECNDS SET SECONDS BYTS 
OO4F 69 01 ADCIM $01 ADD DECIMAL 1. 
9951 85 oC STA NDS 
6053 C9 60 CMPIM 30. IF < 60 THEN FINISHED 
0055 30 22 BMI. RUSET 
0057 AQ 00 LDAIM $09 ZERO SSCONDS 
6059 8&5 oc STA SECNDS 
INCREMENT MINUTES 
0055 AS OB LDA  MINUTS GBT MINUTES BYTE 
095D 69 00 ADCIM $00 ADD IN CARRY FROM PREVICUS COMPARE 
OOS5F 85 OB STA MINUTS 
0061 EA NOP FOR TIMING 


iOD OOOVDOO ODO 
MMDMMNNAN AIP 
VIMO & —J 


NN 
i 
OO -s 


17 


00 


Listing 1 continued 
CMP2.M $60. IF < 69 , FINISHED 


BMi 
LOAIM $00 ZERO MiNUTSS 
STA INUTS 


INCREMENT HOURS 
LDA HOURS 
CLC 


a 


THIS TIME CLEAR CARRY (FOR TIMING) 


+ 

ADCT 01 

STA OURS 

CMPIM $25 WOULD BE 13 FOR 12 HOUR CLOCK 
BMI RSESST 

LDAIM $91 

STA OURS 


RESET TIMSR AND NUMDLY 
RESET LDAIM $99 

STA NUMDLY 

JMP MAXDLY 

RESTCRS REGISTERS 


RESTOR aie 


THIS PROGRAM DISPLAYS THS HOURS, MINUTSS, AND SECONDS 


ORG $0200 


NUMDLY 
CONVD 


oe we te 


LDAIM $01 INTTALIZS INTERRUPT COUNTER 
STA = NUMOLY 
LDAIM BE INITALIZS DIVIDE BY 1024 COCUHTER 


Cur SNABLS INTERRUPTS 
LDAIM i INITALIZS DISPLAY PORT 


S 1 
START LOxiM 09 X REG POINTS TO DIGIT TO BS DISPLAYED 
bel) La. 


THIS IS THE START OF THE LOOP 
THE PRSCSEDING CODE iS iNITAUIZATION 


LCOP cCPYIM $04 IF Y REG IS >= 4 THEN JUMP BACK TO START 


BPL START 


LDAY TIME GST BYTES OF TIME POINTED TO BY Y REG 
LSRA GST HIGH ORDER 4 BITS 


JSR CONVD OUTPUT 4 BITS TO POSITIONPOINTED 
Y X REG 


ANDIM $OF Ger Lew ORDER 4 BITS 
LiaiM 00 TURN OFF DISPLAY 
INY INCREMENT Y 85G 


X RSG {S INCREMENTED BY CONVD 
BPL COP BRANCH ALWAYS TO LOOP 


c, 
mM 
ae] 
O 
= 
< 
= 
OQ 


91 


00 Y REG TS INDEX TC TIME BYTE TO BE DISPLAYED 


GENERAL 
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Replace that PIA witha VIA 


Sound effects, timed Interrupts and a versatile shift 
register are a few of the benefits offered by this useful 


hardware equipment. 


If your microcomputer board uses the 
6520 Peripheral Interface Adapter for an 
VO port, you might consider replacing it 
with a 6522 Versatile Interface Adapter. 
For the two dollars increase in price you 
get all the functions of the 6520 plus two 
timers, a shift register, input data latch- 
ing, and a much more powerful interrupt 
system. 


A block diagram of the VIA is shown in 
Figure 1. The 6522 appears to the CPU as 
sixteen memory locations, compared to 
four for the 6520. Table 1 shows how the 
various registers are addressed using 
the register select pins. In some cases, 
accessing a register triggers another 
function such as resetting an interrupt 
flag or starting the timer. ° 


The timers are loaded with data and then 
decremented at the system clock rate to 
create a delay. This can be used to 
generate Interrupts at preset intervals. 


dir, 


Dir, 


Tiger 1 


| Latch | Counter _| 


Timer 2 


Bus 
ounter 


Interrupt 


Shift Reg. 
| Control _| 


iat ' 


E. D. Morris, Jr. 
3200 Washington Street 
Midland, Mi 48640 


Table 1: 6522 Register Address List 


RS3  RS2 RS1 ASO 
L L L L 
L L L H 
L L H L 
L L H H 
L H L L 
L H L H 
L H H L 
L H H H 
H L L L 
H L L H 
H L H L 
H L H H 
H H L L 
H H L H 
H H H L 
H H H H 


Another use is to connect an amplifier 
and speaker to the shift register output. 
By storing a 11110000 or 11001100 in the 
shift register and placing it in the free 
running mode, Square waves at audio fre- 
quencies are produced. BASIC can then 
POKE constants to timer 2 to produce 
various audio tones. You can create elec- 
tronic music, or add sound effects to 
those mute game programs. tn fact, this 
scheme is used for the PET sound 
effects. 


The timers can be set to cause Interrupts 
at equally spaced time intervals. This 
saves the CPU the chore of keeping time 
or chasing its tall in loops to create 
delays. | found the timed interrupt very 
convenient in writing a single-step 
machine language debugging program. 
The timer is set so the CPU can just 
escape from the monitor and execute 
one step of the main program before 
another interrupt forces it back to the 
monitor. A recent Issue of MICRO gives 
details of using the 6522 timers with a 


Figure 1: Block Diagram of the 6522 SYM computer. 


FUNCTION 


/O port B 

VO portA 

Data direction B 

Data direction A 

Timer 1 counter low byte 
Timer 1 counter high byte 
Timer 1 latch low byte 
Timer 1 tatch high byte 
Timer 2 low byte 

Timer 2 high byte 

Shift register 

Timer and shift register control 
I/O handshake control 
Interrupt flags 

interrupt enables 

VO portA 


So how do you install this super chip in 
your system? Figure 2 compares the pin- 
outs of the 6520 and the 6522. Thirty-six 
of the forty pins are identical, so thatisa 
good start. However changes must by 
made to your circuit board at pins 21, 22, 
37 and 38. The 6522 needs 4 address 
lines compared to 2 for the 6520. | 
jumpered RSO and RS1 to address lines 2 
and 3 somewhere on the CPU board. To 
reduce foil cutting, | Jeft RS2 and RS3 
connected to address 0 and 1. You will 
have to make your own fist of register ad- 
dresses depending how you connect the 
RS lines to your address buss. IRQ and 
R/W must be re-jumped to the proper 
pins. My CPU board did not use CSO, so 
this was no loss. 


} made this modification on an OSI 500 
CPU board (Kilobaud March 1979). After 
reading the Trouble Shooter's Corner 
(Kilobaud September 1978), | was very 
apprehensive about taking on this proj- 
ect. However the OSI board has no 
“bogus” clock pulsus running around, 
so | had no trouble. 


Any of seven events can cause as inter- 
rupt and set a flag in the Interrupt flag 
register. The shift register rate is con- 


VSS + 1 40 + CA 


trolled elther by timer 2 or by an external PAO Ch2 
clock. Two control registers allow selec- PAt IRQA 
tion of the many options avallable in the PA? 1ROB 
6522 VIA. More details of the 6522 can be 
obtained from Synertek, P.O. Box 552, PAS RSO 
Santa Clara CA 95052. PAG RS 
So what does the 6522 gain you as far as PA5 RES 
programming? Well, the shift register PA6 D0 
can be used as a serial output port to PAT 01 
drive a Teletype or printer. The baud rate 
ig software controlled by the constant PBO 6520 02 
Stored in timer 2. PB1 03 
PB2 04 
PB3 05 
PB4 06 
PB5 0? 
PA,PB = I/O Port Pe Re 
CA,CB = Handshake Controi ry , rt 
RS = Register Select (Address) 
_ CB2 CSO 
RES = Reset Veo $20 21 LRA 
D = DataBus 
CS = Chip Select 
IRQ = Interrupt 


PAO CA2 
PAT RSO  * 
PA2 RS1 * 
PA3 RS2 
PA4 RS3 
PA5 RES 
PA6 DO 
Pap a 
P81 Bs22 03 
PB2 04 
PB3 D5 
PB4 06 
PB5 D7 
PBG 92 
PB? CS1 
CB1 CS2 
CB2 Ry 
Yeo +20 2t + IRQ ** 


Figure 2: Pin-outs of the 6522 VIA and 6520 PIA 


To Tape or Not to Tape: 
What is the Question? 


Dust off that oscilloscope and clear up some of the 
mystery behind digital data recording on audio cassette. 


These lines are penned in an attempt to 
clear up some of the mysteries of doing 
the impossible, and to explain some of 
the apparent idiosyncrasies of elec- 
tronics. Some microcomputer operators 
are neophytes in basic electronics, and 
so, this little lesson will endeavor to ex- 
plain what each part is, how it works, and 
why it is used in a given circuit. | would 
suggest you try the experiments shown 
in Figure 3 for a better understanding of 
the circuit theory. 


Those who don't own an oscilloscope, 
could make one of your club meetings in- 
to an evening away from talking about 
the merits of software or peripherals, 
and try to understand what you are pay- 
ing for when you fay out that long green. 
Of course, remember to invite someone 
who owns an oscilloscope. 


As the title of this episode suggests, we 
will investigate why such a simple thing 
as making a tape recording can cause so 
much discussion. Most computerists 
have seen a drawing of the electrical 
signal put out from a Teletype keyboard 
and have noted the similarity to draw- 
ings of an ASCIil signal; let’s face it, 
we've got to learn how to handle these 
fast changes of DC voltage called square 
waves, obviously a misnomer because 
we all know that waves are rythmic un- 
dulations of matter and therefore can 
never really be square. 


We are told that a square wave is an 
“instantaneous” change of voltage from 
one level to another, with both levels 
maintained without variation until the 
next change of state. For TTL circuits 
these levels are approximately plus 4.8V 
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for level 2 and plus 0.2V for level 1, usual- 
ly just called 5V for a‘'1” and zero V fora 
“oO” 


i hinted that | was going to talk about the 
tape recording of digital signals, and ! 
will. First of all, as Dr. DeJong might say, 
Earthpeople have not yet invented an 
audio tape recorder that will record or 
playback digital signals composed of the 
classical description of the same, name- 
ly, ‘‘A series of Square waves varying on- 
ly in frequency or timing but unvarying in 
amplitude.” A Teletype punched paper 
tape comes very close to the ideal way of 
making a permanent recording of digitat 
signals and, when played back, will pro- 
duce digital signals very close to the 
original; however, the expense of one of 
these machines puts it beyond the 


budget of most of us. And besides, 
where do you store all that paper tape? 


Them fellers in Kansas City are pretty 
smart for flatlanders ‘cause they figured 
out a way to foo! a computer into think- 
ing it is receiving square waves when it 
really ain’t, and that’s the gist of my 
story. All your computer wants to receive 
on the ‘from tape recorder” line is data 


to say that this frequency of tone means . 


a ‘‘fone” and this frequency of tone 
means a “zero” “Sounds so darn sim- 
ple” you say, “How come one of us 
mountain folk never thought of that?” 
Now if we can just make our computer 
generate those two tones and put them 
on the ‘to tape recorder” line in the cor- 
rect sequence and time, we will have a 
system like the boys from Kansas City 
envisioned. 


As we said before, even the best tape 
recorder cannot. record square waves, 
but that is all our computer can 
generate, so we must modify these 
square waves to fool the tape recorder 
into thinking they are distorted sine 
waves. Then, when they are played back 
to the computer, it will modify these 
distorted sine waves back to square 
waves which our computer can digest. 


Figure 1 shows the “tape out” circuitry 
of the Synertek VIM-1 microcomputer.: 
Because the tape recorder requires only 
a few millivolts on its input line, the 5 
volt square wave from pin 9 must be 
reduced to usable proportions by the 
voltage divider formed by R90, R89, and 
R88. R90 does double duty in conjunc- 
tion with C14; it forms a low pass filter 
which has the effect of slowing down the 
rise time of the square wave signal from 
pin 9 to a modified square wave with 
rounded corners as shown on the 
schematic, and if the “LO” terminal on 
this machine is used, some additional 
“rounding off” of the signal will be ac- 
complished by the added _ cablie 
capacitance in conjunction with R89. 


Now, one important thing is that the 
recorder input level control must be set 
so that no overloading of the amplifier 
Stages in the recorder occur (because 
that drives the transistors in there crazy) 
but so that a sufficient level is maintain- 
ed for operating the tape head. 
Recorders with automatic level control 
(ALC) are great for this type of service 
because they don’t have any recording 
level control to adjust. 


“Aha!” you say, “My tape recorder is a hi 
fi unit and will reproduce these distorted 
sine waves just as recorded, and that is 
not what my computer wants to see.” 
This Is true, but the computer is expect- 
ing this type of a signal and is prepared 
tor it, as in Figure 2. The output signals 


from most cassette tape recorders 
would be a little further distorted from 
the passage of semi-square waves 
through the output transformer, which 
no longer sees the correct load because 
we have disconnected the 8 ohm 
loudspeaker. It reflects this change of 
load impedance back to the primary, in 
turn destroying the fidelity of the output 
stage. 


Looking at Figure 2, the schematic of the 
tape recorder input of the Synertek VIM 
1, the recorder will see a load of approx- 
imately 270 ohms formed by the series 
impedance of R128 (100 ohms), C15 (170 
ohms @ 2,000 Hz}, and CR36,37 (approx- 
imately 100 ohms) to ground, jess the 
parallel resistance of C16, R92, and 
diodes CR28, CA29 through R94 to 
ground, for a total of 264 ohms. The 0.5 
watt or more available from the output of 
the recorder is capable of driving this 
load to better than 11 volts, which is now 
divided down to the correct voltage to 
drive the op amp “sine to square con- 
verter” U26. 


This division is accomplished via the 
impedance of C16 (8,000 ohms @ 2,000 


5 Vv 
od LI | 


Figure 1 


Hz) plus R92 (1,000 ohms) through CR2B, 
CR29 (100 ohms) and R94 (3.3K ohms) to 
ground. So if we adjust the recorder gain 
control for approximately 8 volts at the 
input terminal we should have about 2V 
of signal at op amp pin 3. 


This voltage is more than enough to 
cause diodes CA28 and 29 to clip the 
voltage peaks at 1.5V and limit the input 
to the op amp. With the amplified inverse 
voltage from pin 7 fed to pin 2 through 
R96, the signal at pin X on the expansion 
connector will be a nice clean replica of 
the near perfect, zero to 5 volt square 
wave we first generated from U37 in 
Figure 1. R128, C15 and diode CR37 form 
an audio voltmeter, while diode CR36 is a 
recording level indicator illuminated by 
the rectified voltage from CR37. 


Now that we thoroughly understand all 
of the above, let’s prove that this really 
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works. Refer to Figure:3 and construct a 
simple square wave generator on a Proto 
board with an oscillator operating at ap- 
proximately 2,000 Hz and an inverting 
buffer to simulate the internal generator 
in the computer. We will need a 4011 
Quad Dual Gate Integrated Circult, 5 
resistors, and 2 capacitors to build the 
generator and divider chain. In addition, 
we will also.require a 5V power supply to 
operate the unit. 


Hook up the power supply and, If there is 
no smoke, start by connecting ‘the 
oscilloscope to point X in Figure 3. It 
should reveal:a fairly good square wave 
approximately 5V In amplitude. With C1 
temporarily disconnected, point Y will 
show the same square wave at approx- 
imately 1.5V of amplitude, while polnt Z 
shows .036V of square wave. 


Reconnect C1 to point Y and note the 
distortion at this point on the-rise and 
fall times, but not on the amplitude of 
the square waves. Point Z will be a re- 
duced voltage version of this distorted 
square wave. Or is it a distorted sine 
wave? 


The frequency chosen for this experi- 
ment (2,000 Hz is the center of the two 
frequencies used on the VIM or SYM 
microcomputers) wilt have a direct bear- 
ing on the values chosen for R1 and C1. 
Too large a value for either would reduce 
the amplitude and shape of the wave we 
are looking for. Too little value would 
reduce the rounding off of the rise time. 


Try it: add 0.022 mf in paraltel with C1 
and note the added distortion and reduc- 
tlon in signat strength to near triangular 
wave at one-half the voltage. 


Remove this added capacitor and con- 
struct Figure 4 on the Proto board, keep- 
ing Figure 3 intact. Now jumper point Y 
on Figure 3 to “IN” on Figure 4, as per 
the dotted line. Because the signal at 
point Y is only 1.2V, diodes CR36 and 
CR37 cannot conduct, effectively dis- 
connecting R6 and C4 and lightening 


the load so that point Y does not distort 
much beyond the original shape prior 
to addition of the jumper. Checking 
now at pins 2, 3, and 6 should yield 
signals approximating those shown on 
the schematic. 


Disconnect the jumper from point Y to 
“IN” and prepare for the big test. Refer- 
ring to your tape recorder instruction 
manual, connect a shielded lead from 
point Z or ¥ to the mike or auxiliary input 
and make a five minute recording of the 
2,000 Hz signal. Rewind the tape and 
connect the IN terminal of Figure 4, 
again with a shielded line, to the monitor 
or earphone jack on the recorder. Press 
the PLAY button and adjust the volume 
control to obtain 6 to 8 voits of signal at 
the IN terminal. With the oscilloscope 
connected to pin 6 of the op amp, you 
should see a fair replica of the square 
wave you first saw at pin 3 of the 4011 
oscillator buffer. 


Your scope should have a 10 MHz band- 
width, to observe fast square waves, but 
any scope will do for these experiments, 
and that’s why | said a “fair replica” of 
the signal. 


All things considered, the design of the 
VIM 1 cassette interface is more than 
adequate. When | first fired up my VIM, 
the only tape ! could lay may hands on 
immediately was a 39 cent, 200 times 
erasure/rewind tape that my daughter 
had used to bring home her French 
language home work. | used this tape to 
make a Sync tape and record the first 
few short programs. It still loads every 
digit without dropouts. 


8 v RW - 7 Jae 
* ovs UL 
Ol 
Ch ick 
Rize R93 28 129 3.3K 
cp 
37 ab cC (2 com.) 
Figure 2 


Figure 3 
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6522 Timing and Counting Techniques 


While many 6502 computerists are becoming familar 
with the 6522 Versatile Interface Adapter, do you really 


know how all of it features work or how to use them? 
This tutorial will clear up the mysteries of the 6522. 


Applications that reduire Interval 
timers Include everything from the pro- 
duction of simple sound effects for 
games to the implementation of 
sophisticated data fogging or control 
processes. Because single-chip micro- 
computers, such as the Rockwell 6500/1 
and the inte! 8048, are intended for high 
volume, low cost applications, the fact 
that they include counter/timer logic is a 
testimony to the importance of 
counter/timer functions for a large var- 
iety of applications. Several simple ap- 
plications will be explained. 


The techniques will focus on the 
counter/timers found on the 6522 Ver- 
Satile Interface Adapter. The 6522 is 
currently popular in a number of micro- 
computer systems that utilize the 6502, 
including the SYM-1, the AIM 65, and the 
MICRO PLUS. Expansion boards such as 
the MEMORY PLUS also Include the 
6522, and the 6522 can be easily Inter- 
faced to the popular KIM-1 (see 6502 
User Notes, No. 13, pg. 16). However, the 
techniques that are described will fre- 
quently be applicable to any 


Marvin L. De Jong 
Department of Math and Physics 
The School of the Ozarks 
Point Lookout, MO 65726 


counter/timer with only minor modifica- 
tlons In the hardware or the programs. 


The basic features Included In many 
counter/timers (also cailed interval 
timers) are shown in Figure 1. This block 
diagram shows that a counter/timer con- 
sists of three registers; the counter 
register which is either an 8-bit register 
or a 16-bit register, a flag register, and a 
control register. A number, N, is loaded 
Into the counter register by a WRITE 
(typically an STA) instruction. If the 
counter is a 16-bit register, then two 
write Instructions are required. In 6502 


Figure 1. Block Diagram of a Typical Counter/Timer. 
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systems these registers are simply some 
of the 85536 memory locations. After N 
is loaded into the counter, it Is 
decremented at a rate determined by the 
ciock signal connected to the counter. 


When N decrements through zero, one 
of the bits in the flag register is set to 
logic one. Thus, the contents of the 
counter register change as follows: N, 
N-1, N-2, ..., 2, 1, 0, and on the next clock 
cycle the flag is set. Consequently it ac- 
tually takes N + 1 clock cycles to “time 
out.” This summarizes the fundamentals 
of the counting/tlming process. 


The control register is used to select 
one of several modes available to the 
programmer. For example, in one mode 
the contents of the counter register are 
decremented at the same rate as the 
system clock, while In another mode 
pulses on an external pin cause the 
counter to decrement, and in a third 
mode the counter is automatically 
reloaded after sach time-out. The modes 
available with a 6522 will be discussed In 
more detail below. 


The 6522 interval Timers 


The 6522 Versatile Interface Adapter 
is a complex integrated circuit that In- 
cludes two eight-bit /O ports, four pins 
associated with handshaking signals for 
these two I/O ports, and two interval 
timers. The W/O ports and handshaking 
pins will only be of incidental Interest, 
and we will describe the use of a few of 
these features as the need arises. Our 
principal interest is in the two counter/ 
timers that are available on the 6522, 
called T1 and T2 respectively. Of course, 
the various registers needed to detect 
timing-out and to select the various tim- 
ing modes wiil also be of interest. 


In most 6502 microcomputer systems, 
the 6522 will be interfaced to occupy 16 
contiguous memory locations. The AIM 
65 and SYM-1, for example, use loca- 
tions with addresses $A000 to $A00F for 
the 6522. Table | summarizes the names 
of each of these 16 locations, while 
Table fl iilsts the functions of the 
registers. Of particular interest are the 
timer jocations $A004 through $A009, 
the interrupt flag register (IFR), and the 
control register (ACR). These correspond 
precisely with the registers mentioned 
above in connection with Figure 1. That 
is, the IFR is the flag register and the 
ACR is the control register. 


Both counter/timers, T1 and T2, on the 
6522 are 16-bit devices; that is, a 16-bit 
number is loaded into the counter 
register and then decremented until 
time-out. Because the counter registers 
are 16-bit registers, two WRITE opera- 
tlons are needed to load the counter 
since only eight bits of data can be writ- 
ten at one time. 


To prevent one eight-bit number (the 
low-order byte) from being decremented 


Figure 2. Flowchart of a Simple 
Interval Timer Delay Loop. 


white the other (the high-order byte) is 
still not loaded, temporary storage /at- 
ches are provided. Using the T2 timer as 
an example, the low-order elght bits of 
the number, N, to be loaded into the 
counter are loaded into the low-order 
byte of the T2 latch (T2LL). Nothing hap- 
pens. Next, the high-order eight bits of N 
are loaded into the high-order byte of the 
T2 counter. Referring to Table II, this last 
operation has three important and 
simultaneous consequences: 


e The byte stored in the T2 latch 
(T2LL) is transferred to the low- 
order byte of the T2 counter 
(T2CL). T2 now contains a 16-bit 
number. 


e The interrupt flag that signals the 
time-out, bit five of the IFR, is 
cleared (set to zero). It will be set 
(to one) when the number N 
decrements through zero. 


e The countdown begins. 


The T1 timer has two latches, one to 
store the low-order byte to be transfer- 
red to the counter, and one to store the 
high-order byte to be transferred to the 
counter. One reason for this difference 
is that the T1 timer has a “free-running” 
mode. At the end of one time-out, the 
two bytes of data stored In the latches 
are automaticaily transferred to the 
16-bit T1 counter to start a new timing in- 
terval. 


Furthermore, the values In the two Iat- 
ches may be changed during one timing 
interval to give a new value for the next 
interval. The examples that follow 
should make these points clear. Addi- 
tional discussion of the READ opera- 
tions outlined in Table II witl also be 
posponed until required by a specific 
example. 


A Simple Delay Loop Using the T2 Timer 


The most common application of 
counter/timers is the Implementation of 
delay loops. The counter/timer repiaces 
a series of instructions that are design- 
ed to waste time. The counter/timer 
simplifies greatly the instructions that 
are necessary to program a time delay, 
and furthermore, the computer may ex- 
ecute other tasks during the delay pro- 
duced by the timer, a feat that Is much 
more difficult to perform with a software 
implemented delay loop. 


An assembly language version of a 
simple delay loop using the T2 timer on 
the 6522 is listed in Table Ill. The 
mnemonics are perfectly general for 
6502 systems, but the addresses of the 
registers of the 6522 are the ones given 
in Table fl for the AIM 65 and the SYM-1. 
Programmers using other systems need 
only change the addresses to corres- 
pond to the locations of the 6522 
registers in the address space of their 


$A005 
$A005 


$4005 


$A005 
$A006 
$A006 
$4007 


$A007 
$A008 
$A006 


$4009 


$4009 
$A00B 


Table [. Memory Assignment Names for the 6522 VIA. 


SYMBOL 


ACR 
IFR 


NAME 

Port B Input/Output Registers 

Port A Input/Output Registers (with handshaking) 
Port B Data Direction Register 


Port A Data Direction Pegister 

Timer 1 latch Low-order Byte (WEXTE) 
Timer 1 Counter Low-order Byte (READ) 
Timer 1 Latch High-order Byte (WRITE) 
Timer 1 Counter High-order Byte (READ) 


Timer 1 Latch Low-order Byte (READ or WRITE) 
Timer 1 Latch High-order Byte (READ or WRITE) 
Timer 2 Latch Loweorder Byte (WRITE) 

Timer 2 Counter Low-order Byte (READ) 

Timer 2 Counter High-order Byte (READ or WRITE) 
Shift Register 


AuxLliary Control Register (Control Register for Timers) 


Peripheral Control Register 


Interrupt Flag Register (Status Register) 
Interrupt Enable Register 


Port A I/O Register (without handshaicing) 


systems. Pay careful attention to the 
comments In Table itl, because they 
relate each step to points in our previous 
discussion. Figure 2 is a flowchart of the 
delay joop, and it has a box for each of 
the instructions In Table Il. 


in the program listing given In Table 
lll, timing begins at the completion of 
the STA T2CH Instruction. The program 
waits In the loop consisting of the series 
of instructions LDA IFR, AND $20, BEQ 
WAIT until the time-out of the T2 timer 
sets bit five of the Interrupt flag register. 
The formula for the time T required for 
the Interval timer to time-out Is: 


T= (N + 1)T. 


where N is the 16-bit number loaded Into 
the counter and T, Is the clock period 
(typically one microsecond). 


If the branch instructions (LDA IFR, 
AND $20, BEQ WAIT) are taken into ac- 
count, then the total loop time, T,, is 
given by the expression: 


(N + 6)Tg STL <(N + 14)T, 


The uncertainty of eight cycles in the 
loop time arises from the uncertainty of 
where the T2 counter/timer actually 
tlmes out in the series of test and branch 
instructions within the loop. For the 
numbers that were used in Table Ill, 


Table il. Memory Assignments and Functions of Some of the 


Registers of the 6522 VIA. 
FUNCTION 


WRITE (STA TILL): Load an eight-bit number into the low-order byte of the T1 latch. 
READ (LDA TICL): Read the contents of the low-order byte of the T1 counter, and 
clear the interrupt flag, bit six of the IFR. 
WRITE (STA TILH): Load an eight-bit number into the high-order byte of the Tl latch, 
transfer the contents of both Tl latches to the Tl counters, clear 
the Tl interrupt flag, and start the counting process. 


READ (LDA T1CH): 


Read the contents of the high-order byte of the Tl counter. 


WRITE (STA T1LL): Load an eight-bit number into the low-order byte of the T1 latch. 


READ (LDA TiLL): 


Read the contents of the low-order byte of the T1 latch. 


WRITE (STA TILH): Load an eight—bit number into the high-order byte of the T1 latch 


and clear the T1 interrupt flag. 
Read the contents of the high-order byte of the Tl latch. 


READ (LDA T1LH)s 


WRITE (STA T2LL): Load an eight-bit number into the low-order byte of the T2 latch. 


READ (LDA T2CL): 


Read the contents of the low-order byte of the T2 counter, and clear 


the interrupt flag, bit five of the IFR. 

WRITE (STA T2CH): Load and eight-bit number into the high-order byte of the 72 counter, 
transfer the contents of the low-order byte in the T2 latch to the 
low-order byte of the T2 counter, clear the T2 interrupt flag, and 


start the counting process, 
Read the contents of the high-order byte of the T2 counter. 


READ (LDA T2CH): 


Bits five, six, and seven control the modes of Tl and T2. 
Bit six equal to ome signals a time-out of the Tl counter/timer., Bit 
five equal to one signals a time-out of the T2 counter/timer. 
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Figure 3. 60 Hz Signal Conditioner for the Low Overhead Clock. A 
circult based on the 555 timer and using only the + 5V supply can 
be found in Berlin’s 555 Timer Applications Sourcebook, pgs.2- 13. 


+12V to +15V 


T = ($G34E + 1)T, = 0.05 seconds for 
a one microsecond clock. The loop time 
ls between 5 and 13 microseconds 
longer. For many applications, this 
uncertainty will be of no consequence. 


As pointed out earlier, the 
microprocessor need not be idle while 
the timer is timing out. For the particular 
delay of 0.05 seconds programmed in 
Table Ill, a total of 50,000 clock cycles 
elapse while the timer is running. During 
that time, between 25,000 and 10,000 in- 
structions could be executed by the 
6502. These instructions would be 
placed between the STA T2CH and the 


b -12V to ~15V 


LDA IFR Instructions. This is the prin- 
cipal advantage of the counter/timer |m- 
plemented delay loop; that is, the micro- 
processor can be performing meaningful 
tasks during the timing-out process. 


Counting Pulses — A 24-Hour Clock 


The T2 timer can also be used to count 
pulses from an external source. This is 
useful for frequency counting (MICRO, 
June 1979, pg. 41) or any other event 
counting application such as _ radio- 
active half-life measurements. The T2 
timer is placed in its pulse counting 
mode by setting bit five in the auxiliary 


Table Il. A Simple Delay Loop Using the T2 Timer on the 6522. 


$0300 Ag LE START LDA $4E 
$0302 &D 08 AO STA T2LL 
$0305 A9 C3 LDA $C3 
$0307 &D 09 AO STA T2CH 
$030A AD OD AO WAIT LDA IFR 
$030D 29 20 AND $20 
$O30F FO F9 BEQ WAIT 


Load the byte for the T2 latch low, then 
transfer it into T2 latch low (T2LL), 

Load the byte for the T2 counter high, 

then transfer it into T2 counter high (T2CH) 
Read tne flag register, IFR. Mask all bits 
Check to see if bit five 
Yes, loop is finish 


except bit five. 


is set. No, then wait. 
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control register (ACR) to logic one, and 
applying the TTL level pulses to bit six of 
port B, P86. To illustrate this mode, and 
to lilustrate how the timers can be used 
to generate interrupt requests (IRQs), we 
have chosen to describe a simple 
24-hour clock that requires very little 
computer time overhead. 


The 60 Hz power line frequency Is suf- 
ficlentiy stable over long periods for 
many clocks. Somewhere in your micro- 
computer system you will probably be 
able to locate a low-voltage 60 Hz 
source. This is conditioned by the circuit 
shown in Figure 3 to produce a 60 Hz 
square wave, and the output js applied 
to PB6 to be counted. Clearly there are 
3600 ($0E10) such pulses in a minute. 


The T2 counter/timer will be program- 
med to count 3600 pulses followed by an 
interrupt request. The interrupt routine 
increments one location in memory to 
keep track of minutes, and when this 
location reaches 60, another location Is 
incremented to keep track of the hours. 
At the beginning of the interrupt routine 
the T2 counter/timer Is reloaded with 
3600 for the next period. 


The program is listed in Table IV. The 
first two instructions set bit five of the 
ACR to logic one. Next the timer is load- 
ed with $0E0OF. Note that $OEOQF + 1 = 
3600. The LDA $A0 and STA IER instruc- 
tions enable interrupts from bit five of 
the interrupt flag register (1FR) of the 
6522 to the 6502 microprocessor’s IRQ 
pin, a connection that is usually internal 
to the microcomputer system. 


To enable interrupt request signals 
from T2, bit five of the IER (interrupt 
enable register) must be set to logic one, 
with bit seven of the IER also set to logic 
one. At the end of the timing interval, not 
only will bit five of the IFR be set to one, 
but also the IRQ pin on the 6502 micro- 
processor will be pulled to logic zero, 
producing an interrupt request. 


The next instruction after enabling the 
Interrupt from the T2 timer Is the CLI in- 
struction that allows the 6502 to 
recognize these interrupts. The last In- 
struction In the malin program should 
not be taken literally. It is simply an 
infnite loop that represents the user's 
main program, a FORTRAN interpreter 
for example. 


The interrupt routine is also given in 
Table IV. Timekeeping routines have 
been described in several other articles 
(MICRO, March 1979, pg. 5), so the 
details will not be repeated here. Note 
that in order for the program to execute, 
the IRQ vector must point to the starting 
address of the Interrupt request routine, 
in our case $0300. Note also, that the 
program could be easily modified to 
keep track of seconds by counting only 
60 pulses, something that can be done 
with an eight-bit counter like the one on 
the R650/1. The hours-minutes clock re- 
quires only about 50 microseconds per 


minute of computing time, truly a low- 
overhead clock. 


To display the minutes and hours, the 
user must provide a display routine that 
takes the contents of locations $0000 
and $0001 and displays these numbers. 
Such a routine Is not included in Table IV 
since the instructions used will depend 
on the microcomputer system, and 
previously written clock programs have 
included suitable display routines. 


To summarize the operation of the T2 
counter/timer on the 6522 we conclude 
this section with the following state- 
ments: 


© Todecrement the 16-bit number in 
the T2 counter at the system clock 


rate, clear bit five of the ACR. 


e To decrement the 16-bit number in 
the T2 counter using external 
pulses applied to PS6 (pin 6 of 
Port B), set bit five of the ACR. 


¢ To produce an interrupt request 
(IRQ) when the counter decre- 
ments through zero In either of Its 
modes, set bits five and seven of 
the IER. 


e To disable the interrupt feature, 
set bit five of the [ER and clear bit 
seven of the IER. 


° A system RESET disabies the 
pulse-counting mode and the in- 
terrupt request feature by clearing 
all the registers of the 6522. 


Table IV. Low Overhead 24-hour Clock. 


$0200 AS 20 MAIN LDA $20 
$0202 &D OB AO STA ACR 
$0205 A9 OF LDA $OF 
$0207 &D 08 AO STA T2LL 
$C20A AO CE LDA $0E 
$0200 sD 09 AO STA T2CH 
$O20F AS AO LDA $A0 
$0211 &D OE AO STA IER 
SO2L, 58 CLI 
$0215 4C 15 02 HERE  JMP HERE 


Put T2 in its pulse-—counting mode 
by setting bit five to logic one. 
Set up T2 to count 3600 pulses. 


Set up interrupt enable register 
to permit IRQ from Tz. 

Allow 6502 to accept IRQ signals. 
Loop here between interrupts. 


INTERRUPT ROUTINE 


$0300 A> O8 LDA SOE 
$0302 8D 09 AO STA T2CH 
$0305 18 cle 
$0306 FS SED 
$0307 A5 00 LDA MIN 
$0309 69 O1 ADC $01 
$030B 85 00 STA MIN 
$030D C9 60 CMP $60 
$O30F DO 13 BNE DONE 
$0311 A9 00 LDA $00 
$0313 8&5 00 STA MIN 
$0315 18 ere 
$0316 A5 OL LDA BRS 
$0328 69 01 ADC $01 
$031A 85 O1 STA HRS 
$031C C9 2), CMP $24 
$031E DO O& BNE DONE 
$0320 A9 00 LDA $00 
$0322 85 Ol STA BRS 
$032, De DONE CLD 
$0325 40 RTI 


Start counting pulses again by 
loading T2CH. 

Clear -carry for addition. 

Set decimal mode for addition. 
Get minutes. 

Add one. 


Is one hour complete? 


No, get out of interrupt routine. 
Yes, set minutes to zero. 


Get hours. 


Add one. 


Is one day complete? 


Clear hours. 


Clear decimal mode. 
Return to the main program. 
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Producing Long Time Delays 


The maximum time delay that can be 
produced with the T2 counter/timer 
when it is decrementing ‘at the system 
clock rate Is approximately (§FFFF + 
1)Tg or 0.065536 seconds. if Te = 1 
microsecond. In certain applications 
longer time delays are necessary. To ob- 
tain these delays, the T1 timer is used in 
conjunction with the T2 counter/timer. 
We digress for a moment to Introduce 
the T1 timer. 


The T1 timer can be used to imple- 
ment a simple delay loop in exactly the 
same way as the T2 timer. Refer to Table 
lll. If the addresses $A004 and $A005 
replace addresses $A008 and $A009, 
respectively, and If bit six of the inter- 
rupt flag register (IFR) is tested rather 
than bit five, then the program in Tabie 
Il! will work in exactly the same way ex- 
cept that the T1 timer is being used. 


The same equation gives the loop time 
and, as In the case of the T2 timer, the 
maximum delay Is about 0.065 seconds. 
The T1 timer cannot, however, count 
pulses. Consequently it cannot replace 
the T2 timer in the program listed In 
Table IV. In place of the pulse counting 
mode, the T1 tlmer has a free-running 
mode, and it is capable of toggling the 
logic tevel on pin seven of Port B, PB7. 


The Initialization of the free-running 
mode with PB7 toggling is illustrated in 
a simple program shown in Tabie V. This 
program will produce a square wave out- 
put on PB7. The period of the square 
wave is given by the equation: 


Tp = 2IN + 2)T, 


where Tp, is the period of the square 
wave, N Is the 16-bit number loaded into 
the T1 timer, and T, is the period of the 
system clock (Typically one micro- 
second). The frequency of the square 
wave is f = WTp. 


To initialize this mode, bits seven and 
six of the auxillary control register (ACR) 
must be set. Thus, the program in Table 
V begins by loading $CO into the ACR. 
Timing is Initiated by loading the high- 
order byte of N into location $A005 
which corresponds to TILH. Once 
started, the square wave will run forever, 
no matter what else is happening in the 
program, provided the registers that 
control the behavior of the T1 timer are 
not changed. That is, after the timer 
"times out”, it will automatically reload 
the two counter registers from the 
numbers stored in its latches,. T1LL and 
TILH. 


The last Instruction in Table V is an in- 
finite loop that simulates the user’s pro- 
gram Intended to run concurrently with 
generation of the square wave. Table VI 
lists some values for N that are frequent- 
ly used in timing applications. If you 
have an oscilloscope, run the program 
with various values of N and conneet the 


¥ the oscilloscope to P87 to 
t the square wave. You can use 
rogram to calibrate your 
ope sweep time. If you have a 
icy counter, measure the fraquen- 
¥e Square wave at PB7 to verify 
sation, using the values for N 
t Table Vi. N is the number to be 
into T1. 


that the frequency of the square 
raduced at PB7 by the program 
n Fable V is as precise as the 
osciliator frequency used for the 

clock. This is because the 
wave frequency is independent 
instruction length. The principal 
wwe of the free-running mode of 
immer is that the time between in- 
fiag settings (or the frequency of 
are wave on PB7) is independent 
nstruction length. Thus, one can 
ct very precise time-keeping 
’ (MICRO, March 1979, pg. 5) or 
masuring routines. 


roduce simple delay ioops for 
t@ intervals, the pulses from PB7 
to P86. Timer T1 operates in its 
wing mode, and timer T2 
& in its pulse counting mode. 
vently, T2 counts the pulses pro- 
¥ T1 on PB7. A program to pro- 
delay of one hour is given in 
uj. This program may be easily 
J to produce delays of 1, 10, 60, 
00, 10000, 36000, or 65536 
b 


Ti produces a square wave 
period is 0.1 second. These 
ase counted by the T2 counter/ 
‘mine ts loaded Into T2, then 10 
sech of 0.1 second duration, will 
nad, giving a delay of one se- 
ther time intervals are program- 
2ordingly. Of course, there is an 
sty of several microseconds in 
@i loop time, but this uncertainty 
wnimportant for most applica- 


program In Table Vii ts modified 
¥2 to produce interrupt requests 
y loading $A0 Into the interrupt 
ragister (IER) at location $A00E 
Fable IV), then It could be used 
action with the Interrupt routine 
Table IV to produce a 24-hour 
ogram. To generate an interrupt 
inute, as required by the tow- 
d clock, T1 should count to 600. 
with $0257 instead of $C39F as 
2 Fable Vil and your clock should 
se modifications are shown in 
85 disassembly format. 


Sound Effects 


ft timer can be used in its free- 
mode to toggle PB7, and PB7 
sed to drive an amplifier. (f the 
sy 38 In the audible range, then a 
‘pe heard. A series of tones may 
+@ song. Table Vill sts the fre- 
3 necessary to produce three oc- 


Figure 6. Circuit to measure the time duration, T, of a positive pulse. 
The CB1 pin must be programmed to produce an interrupt on the 
negative transition of the pulse by loading PCR4 with a zero. 
Change the byte at $0217 from $10 to $00 in the listing in Table X to 
accomplish this. 


$0206 A9 CO 
$0202 8D OB AO 
$0205 A9 4D 
$0207 &D 06 40 
$0204 AS 00 
$a20c 05 AO 
$Q2OF 40 OF 


START LDA $CO 
STA ACR 
LDA $4D 
STA TILL 
LDA $00 
STA T1LH 

LOOP JMP LOOP 


Set bits seven and six of the ACR, 

putting the Tl timer in its free-mmning 
mode with @ square wave output on PB7. 

Let N = $0Q,D. T» = 2($50) microseconds 

= 160 microseconds. 

Start timer. 

Dummy loop simulates remainder of a program. 


Table V. Program to Produce a Square Wave Output on PB7. 


FREQUENCY PERIOD N +2 N 
f T p Decimal Hex Hex 
10 Hz 0.10 sec 50000 = $0350 0 34D 

100 Hz 0.01 sec 5000 = $1388 $1386 
1000 Hz 1.00 ms 500 = $O1LFL $O1F2 


100 kHz 0.01 ms 
250 kHz 4.00 us 


50 = $0032 $0030 
5 = $0005 $0003 
2 = $000 $0000 


Table Vi. Table for Producing Various Square Wave Frequencies. 


$0200 AY EO 
$0202 &D CB AO 
$0205 AO 4D 
$0207 &D 06 AO 
$@2ah A9 C3 
$Q2C0 sD 05 AO 
SQ20F AQ OF 
$0211 8D 06 AO 
$0214 AD & 
$0216 &D 09 AO 
$0219 A9 20 
$0218 26 OD AO 
$Q21E FO FB 
$0220 O00 


START LDA $EO 
STA ACR 
LDA $4D 
STA TILL 
LDA $C3 
STA T1LE 
LDA SOF 
STA T2LL 
LDA $8 
STA T2CH 
LDA $20 

TEST BIT IFR 
BEQ TEST 
BRK 


Load ACR to put T1 in free-running mode 
and T2 in pulse counting mode. 
Initialize Tl timer to mm with a period 
of 2($C34D + 2) = 100000 microseconds 

= 0.1 second. 

Start timer toggling PB7. 

Set up T2 to count $8C9OF + 1 = 36000 
coumts. (36000)(0.1sec) = 1 hour. 


Start counting. Clear IFR. 

Check interrupt flag register to see ig 
bit five has been set, indicating tha. 
T2 has cowmted 36000 pulses. 

Break to the monitor at the end of ane 


Table Vil. Program to Produce a One-Hour Delay. 
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Input of the oscilloscope to PB7 to 
monitor the square wave. You can use 
the program to calibrate your 
oscilloscope sweep time. if you have a 
frequency counter, measure the frequen- 
cy of the square wave at PB7 to verify 
the equation, using the values for N 
given in Table Vi. N is the number to be 
loaded into T1. 


Note that the frequency of the square 
wave produced at PB7 by the program 
listed in Table V is as precise as the 
crystal oscillator frequency used for the 
system clock. This is because the 
square wave frequency is independent 
of any instruction length. The principal 
advantage of the free-running mode of 
the T1 timer is that the time between in- 
terrupt flag settings (or the frequency of 
the square wave on PB7) is independent 
of any instruction length. Thus, one can 
construct very precise time-keeping 
routines (MICRO, March 1979, pg. 5) or 
time measuring routines. 


To produce simple delay loops for 
long time intervais, the pulses from PB7 
are fed to PB6. Timer T1 operates in its 
free-running mode, and timer T2 
operates in its pulse counting mode. 
Consequently, T2 counts the pulses pro- 
duced by T? on PB7. A program to pro- 
duce a delay of one hour is given in 
Table VII. This program may be easily 
modified to produce delays of 1, 10, 60, 
100, 1000, 10000, 36000, or 65536 
seconds. 


Timer T1 produces a square wave 
whose period is 0.1 second. These 
pulses are counted by the T2 counter/ 
timer. If nine is loaded into T2, then 10 
pulses, each of 0.1 second duration, will 
be counted, giving a delay of one se- 
cond. Other time intervals are program- 
med accordingly. Of course, there is an 
uncertainty of several microseconds in 
the actual loop time, but this uncertainty 
will be unimportant for most applica- 
tions. 


If the program in Table Vil ls modified 
to allow T2 to produce interrupt requests 
(IRQs) by loading $A0 Into the interrupt 
enabie register (IER) at location $A00E 
(refer to Table IV), then it could be used 
in connection with the interrupt routine 
given in Table !V to produce a 24-hour 
clock program. To generate an interrupt 
every minute, as required by the low- 
overhead clock, T1 should count to 600. 
Load T1 with $0257 instead of $C39F as 
shown in Tabie VII and your clock shouid 
run. These modifications are shown In 
the AIM 65 disassembly format. 


Sound Effects 


The T1 timer can be used in its free- 
running mode to toggie PB7, and PB7 
can be used to drive an amplifier. If the 
frequency is in the audibie range, then a 
tone will be heard. A series of tones may 
make up a song. Table Vil? lists the fre- 
quencies necessary to produce three oc- 


Figure 6. Circuit to measure the time duration, T, of a positive pulse. 
The CB1 pin must be programmed to produce an interrupt on the 
negative transition of the pulse by loading PCR4 with a zero. 
Change the byte at $0217 from $10 to $00 in the listing in Table X to 


accomplish this. 


$0200 A9 CO START 
$0202 &D OB AO 

$0205 AD 4D 

$0207 & 06 AO 

$204 AD 00 

$0208 BD 05 AO 

$Q20F 4C OF 02 #§= LOOP 


LDA $CO 
STA ACR 
LDA $4D 
STA TILL 
LDA $00 
STA T1LH 
JMP LOOP 


Be TRAST EL Rl TEE 


Saeed wa toes 


ee Dre hes: 


Set bits seven and six of the ACR, 

putting the T] timer in ite free-rmning 
mode with a square wave output on PB7. 

Let N = $OO\D. 7° 2($50) microseconds 

= 160 microseconds. 

Start timer. 

Dummy loop similates reminder of a progran. 


“eS we ben es. Pes 


Table V. Program to Produce a Square Wave Output on PB7. 


FREQUENCY 
f 


10 Hz 

100 Hz 

1000 Hz 
10 kHz 
100 kHz 
250 kHz 


PERIOD 


tT 
p 


N +2 N 
Decimal Hex Hex 


0.10 sec 50000 = $C350 $534D 
0.01 sec 5000 = $1388 $1386 


1.00 ms 
0.10 ms 
0.01 ms 
4.200 us 


500 = $O1FL $O1F2 
50 = $0032 $0030 
5 = $0005 $0003 
2 = $0002 $0000 


Table VI. Table for Producing Various Square Wave Frequencies. 


$0200 A9 EO START 
$o202 6D 0B AO 

$0205 AO &D 

$0207 &D 06 AO 

$a20k A C3 

$0200 &D 05 AO 

S$Q20F AO OF 

$0211 8D 08 AO 

$0214 AQ & 

$0216 a 09 AO 

$0219 AJ 20 

$021B 20 OD AO TEST 
$O21E FO FB 

$0220 00 


LDA $EO 
STA ACR 
LDA $4D 
STA T1LL 
LDA $C3 
STA TILE 
LDA $9F 
STA T2LL 
LDA $8C 
STA T2CH 
LDA $20 
BIT IFR 
BEQ TEST 
BRE 


Load ACR to put T1 in free-running node 
and T2 in puise counting mode. 
Initialize Tl timer to run with a period 
of 2($C34D + 2) = 100000 microseconds 

= 0.1 second. 

Start timer toggling PB7. 

Set up T2 to count $8&C9F + 1 = 36000 
counts. (36000)(0.1sec) » 1 hour, 


Start counting. Clear IFR. 

Check interrupt flag register to see if 
bit five has been set, indicating that 

T2 has counted 36000 pulses. 

Break to the monitor at the end of an hour 


Table Vil. Program to Produce a One-Hour Delay. 
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taves of notes on the equally tempered 
scale (note middie A corresponds to 440 
Hz and successive note frequencies are 
related by a factor equal to the 12th root 
of two). Also listed in Table VIil are the 
half periods in microseconds; that is, the 
numbers that must be ioaded into the T1 
timer to produce the notes. Since the 
period of the square wave is (N + 2)T,, 
each of the numbers in the last column 
of Table Vill should be decremented by 
two. 


A program to play songs using the 
notes in Table VIII is listed In Table IX. 
The identification numbers (1.0. num- 
bers) of the notes in the song to be 
played are stored in a song table star- 
ting at $0400. Actually, the song could 
be stored anywhere in memory that is 
convenient, simply by changing the base 
address of the song table. The base ad- 
dress of the song table is stored In $0050 
and $0051, called SONG and SONG + 1, 
respectively. 


Table Vill. Note Table for Producing Tones on the Equally Tempered 


Scale. 

I.D. NOMEER § NOTE FREQUENCY PERIOD /2 
Hex Hertz Microseconds 
$00 C 0 130.813 $OREE 
$OL C# 138.592 $QE18 
$02 D ° 146.832 SQDLD 
$03 D ff 155.563 $OCSE 
$04 Ey 164.81, SOBDA 
$05 Fy 174.61, $CB2F 
$06 F if 18.997 SOASF 
$07 G, 195.998 SO9F7 
$08 G of 207.652 $0968 
$09 A, 220.000 $08E1 
$m A if 233-082 $0861 
$0B B, 246. 945 $OTE9 
$OC 80 (middle) Cc, 261.626 $0777 
$oD C# 277-183 $0700 
$Or D, 293.665 $06A7 
$OFr D,# 311.127 $0647 
$10 z, 329.628 SOS5ED 
$11 Fy 349.228 $0598 
$12 Fi# 369.995 $0548 
$13 G, 391.995 SQLFC 
$14 G,# 415.304 SO,Bi, 
$15 A, 41,0.000 $0470 
$16 A# 166.164 $0431 
$17 B, 493.883 $O3FL, 
$18 Cc, 523.251 $O3EC 
$19 CH 5510365 $0386 
$1A Dy 587.330 $0353 
$1B D# 622.25, $0323 
$1c E, 659.255 $SQ2F6 
$1D Fy 698.456 $caecc 
$iE Ff 739-989 SOCAL 
$iF G, 783.991 SO27E 
$20 Gof 830.609 $O25A 
$21 A, 880.000 $0238 
$22 Ap# 932.328 $0218 
$23 B, 987.767 SOLFA 


The identification numbers ($00 - $23) 
found in the song table are used to Index 
a note table found In page zero, from 
$0000 to $0047. The note table contains 
the half-periods of the frequencies 
found in the fourth column of Table Vill, 
corrected for the fact that the half- 
period is (N + 2)T, rather than (N)T<. 
The low-order bytes of the half-periods 
are found from $0000 to $0023 In the 
note table, while the high-order bytes are 
found from $0024 to $0047. 


The program first locates dn iden- 
tlfication number for a note from the 
song tabie. It then loads the latches on 
the T1 timer with the correct half period, 
and the note begins to play. The dura- 
tion of the note is determined by a 
number found in the duration table, call- 
ed DUR, and located from $0800 upward. 
There must be one duration number for 
each note. The duration of a note is 
basically the number of times the T2 
timer is allowed to time out. If $01 
represents a sixteenth note, then $02 Is 
an eighth note, $04 is a quarter note, $08 
a half note, and $10 a whole note. The 
tempo may be changed by changing the 
bytes loaded into the T2 timer at loca- 
tions $021E through $0227 in the pro- 
gram listed In Table IX. 


The song table given in Table IX simp- 
ly plays the three octave scale from 
Table Vill with a variety of durations as 
indicated by the duration table. You are 
Invited to make your own song or 
translate someone eise’s song into |.D. 
numbers. Better yet, write a song inter- 
preter that does the translation for you. 


Your Interpreter should take a 
keyboard entry for a note and place the 
1.D. number Into the song tabie. it should 
take another keyboard entry for the time 
value of the note and place it in the dura- 
tion table. With several 6522s, you could 
play four-part harmony! With a D/A con- 
verter and a voltage controlled amplifier 
you could also contro! the note 
envelopes, giving an elementary syn- 
thesizer. 


For my interface circuit, | used the 
7404 inverter connected to PB7. The out- 
put from the 7404 was connected to one 
lead of a 11% Inch speaker and the other 
lead was connected to +6 volts. Better 
Interfacing circuits to drive speakers 
have appeared in various articles and 
books (see Caxton Foster’s Programm- 
ing a Microcomputer). 


Measuring the Time Between Events 


A number of applications require that 
the time between two successive events 
be measured. The events might be the 
start and finish of a race, the arrival of 
cosmic rays, two heartbeats of an 
animal, and many others. If the events 
are periodic, then the time between 
events can be obtained by first measur- 
ing the frequency of the events with a 


$0050 = SONG, [SONG] = $00 


$0051 = SONG + 1, [SONG +1] = $0, 


$0052 = DUR, [DUR] = $00 


$0053 « DUR + 1, [DUR + 1] = $08 


$0000 = NOTE (See Note Table) 


NOTE TABLE 

$0000 EC 16 4B & DS 2D SD F5 
$0006 66 DF SF E7 75 OA A5 45 
$0010 EB 9% 46 FA B2 6B 2F F2 
$OOL8 BA G4 51 21 Fi OA A2 70 
$0020 56 36 16 F8 OE CE @ OC 
soczé OB OB OA 09 09 08 08 07 
$0030 07 07 0 06 05 05 05 & 
$OO3E O4 G4 Of 03 03 03 03 03 
SOmOMeMMeR RC ol 


DURATION TABLE 

$0800 OL C2 OL 08 10 20 10 08 
3oeos & © Ol @ & 0 10 20 
$0610 10 06 O% G2 O1 C2 & 08 
$0618 10 20 40 80 40 20 10 08 
$0E20 GQ, O2 O1 01 00 


SONG TABLE (Plays scale) 
$0,00 OO 01 & O3 O 05 0 07 
$0,068 06 09 O& OB CO @ CE OF 
$420 1011 12 13 14 15 16 17 
$0,186 1819 1A 1B 1C 1D 1E 1F 
$Q,20 20 21 22 23 


Table iX. Program to Play a Song. 


$0200 AJ CO START IDA $CO 
SQ2c2 SD OB AO STA ACR 
$0205 AO 00 LDY $00 
$0207 1 50 MORE LDA (SONG),Y 
$0209 AA TAX 
Sc2M BS 00 LOA NOTE,X 
$O200 BD 06 AO STA TILL 
$a2cF eA THA 
$0210 18 CLe 
$0211 69 24 ADC $24 
$0213 AA TAX 
$0214 BS 00 LDA ROTE,X 
$0216 8D 05 AO STA TILA 
$0219 Bl 52 Loa (DUR),Y 
$OQ21B FO 2, BEQ OUT 
$O21D AA TAX 
SQZ1E AQ FF AGN LDA $FF 
$0220 &D 08 AO STA T2LL 
$0223 AQ FF LDA $FF 
$0225 &D 09 AO STA T2CH 
$0228 AQ 20 LDA $20 
$022A 2C OD AO BACK BIT IFR 
$022D FO FB BEQ BACK 
S$C22F CA DEX 
$0230 DO EC BNE AGN 
$0232 Eé 50 INC SONG 
$0234 DO ce ERE PAST 
$0236 EB 51 INC SONG + 1 
$0238 E6 52 PAST re DUR 
$M@23A DO ENE THERE 
sex BH 53 INC DUR +1 
$OQ23E 46 07 THERE JMP MORE 
$0241 AI 00 OUT LDA $00 
$0213 &D OB AO STA ACR 
$0246 00 BRK 

+5 V 


Initialize ACR to put T1 in free-running 
mode. 

Indirect indexed mode with index = 0, 
Get note I.D. from song table. 

Use it as an index to look up note 

in the note table. 

Put low-order byte into TILL 

Transfer X back to A to find high-order 
byte, which is $24 locations higher 

in page sero. 

Back into X to become index to fetch 
high-order byte of half-period. 

Result into Tl timer latch high. Note 
begins to play. Get duration. 

If duration is sero, end of song. 
Duration into X to serve as counter. 

Set up T2 for a time period that determines 
the tempo. 


Start the T2 timer. 

Test to see if T2 has timed-out, 

Is bit five of the IFR set? 

No, wait for it and play note, 
Decrement duration counter until 

it is sero, then note is finished. 
Get another note from the sang table. 
If song is sero, tben get the next note from 
next page of song table. 

Get another duration from the table. 


Play this note. 
Clear the ACR to finish playing notes. 


Jump to the monitor when finished. 


Figure 4. Circult to measure the time interval, 
T, between two successive pulses. 


Table X. Program to Measure the Time Between Two Pulses. 


$Q206 AG 00 
$aec2 85 01 
$m@a, 85 @ 
$0206 85 03 
$0208 A9 Ol 
$o2m & 2 AO 
$O@2@ a 00 AO 
$0210 CE 00 AO 
$0213 EE 00 AO 
$216 A9 10 
$0218 & OC Ad 
$021B A9 EO 
$Q21D @ 08 AO 
$O220 AJ 8 
$0222 06 AO 
$0225 Ag 13 
$0227 & 05 AO 
SQ22k AQ FF 
$a22C 8D 08 AO 
$0O22F BD 09 AO 
$0232 AD 00 AO 
$0235 AD OD AO 
$0238 29 10 
$Q23A FO FO 
$023C 20 00 03 
$Q23F 00 AO 
$0242 EE 00 AO 
$0245 40 2h Ce 


SUBROUTINE CNVD 
$0300 38 

$0301 AS FF 
$0303 ED 09 AO 
$0305 &5 11 
$0306 A9 FF 
$OB0A ED 06 AO 
$O30@D 85 10 
$@or Fs 
$0310 AO 10 
$0312 0 10 
$0314 26 11 
$0316 A2 FD 
$0318 BS & 
$O31A 75 Qh 
$031C 95 G& 
SOB1E ES 
$031F DO F7 
$0321 88 
$0322 DO EE 
$0324 20 40 03 
$0527 49 00 
$0329 85 O1 
$0328 &5 © 
3032D 85 63 
$032F 60 


START 


NEXT 


TEST 


CNVD 


AGN 


Clear display registers. 
Least-significant byte of time, 
Middle byte. 

Most-significant byte of time. 
Initialize PBS to be an output pin. 


Initialize PBS to logic one, then toggle 
it to preset the 7474 flip-flop. 


Set bit four of the peripheral control 
register (PCR) to set interrupt flag on 

& positive transition on pin CB. 

Tl in free-rumning mode, T2 counts pulses. 
Set period of square wave on PB7 so that 

Tt = 0.01 second. 

$1386 + 2 = 5000, so f = 100 Hz, Ty, = 0.018. 
Start square wave running. 

Set up pulse counter T2 to start at SFFIF. 


Start counting pulses when the event pulse 
clocks the 7474 flip-flop. Clear IFR, flag. 
Read the interrupt flag register. Mask 

all except IFR,. Wait wtil flag is set, 
then timing is finished, s0 convert the 
answer to decimal and display it. 

Praset the flip-flop by toggling PB#. 


Measure another interval. 


Set carry for subtractions that follow. 
Find ($FFFF - No) = number of pulses counted. 


Hign-order byte stored in CNTHI. 
Now get the low-order byte of the cout. 


Low-order byte stored in CNTLO. 

Conversion of hex to deciml starts here. 

Y contains number of bits to convert. 

Shift one bit at a time into the carry flag. 


X will serve as a counter for a triple- 
precision addition, with LEAST, MIDST, 
and MOST holding the answer. 


Increment X to sero, then three bytes 
have been added. 


Decrement Y until all the bits have been used. 


When Y = 0, conversion is complete. 
Jump to AIM 65 Display Routine, 

Now clear the counter locations to get 
the tims for the next two pulses. 


Return to the timing progran. 
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frequency counter and then applying the 
relation T = 1/f, where T is the time bet- 
ween successive events and f is the fre- 
quency of the events. For low frequency 
periodic events, such as a race, the only 
choice is to measure the time interval 
directly. 


We will assume that the events pro- 
duce positive pulses, and we will not try 
to describe how the positive pulses can 
be produced. Rather, our problem wiil be 
restricted to measuring the time bet- 
ween two successive positive pulses. A 
circuit and a program to accomplish this 
are shown in Figure 4 and Table X, 
respectively. 


The circuit was inspired by Carlin’s 
and Howard's article on the Intel 8253 in 
Computer Design, May 1979, pg. 213. 
The positive pulses clock a 7474 filip- 
flop, producing a logic-one voltage at 
the Q output of the 7474 for the time in- 
terval between the leading edges of the 
two pulses. With the T1 timer producing 
Square waves on PB7, the logic-one 
voitage on the Q output gates the pulses 
to PB6 (by means of the 7400 NAND 
gate), where they are counted by the T2 
counter/timer. For example, if a square 
wave whose frequency is 10 Hz (T = 0.1 
second) is applied to the 7400 NAND 
gate, and 250 such pulses are counted 
on PB6, then the corresponding time in- 
terval is (250)(0.1) = 25.0 seconds, with a 
resolution of 0.1 second. 


Clearly, no software is required to 
detect the pulses, and consequently 
very narrow pulses can be detected. 
Also, the programmer has control over 
the frequency of the square wave ap- 
plied to the NAND gate. The resolution 
can be changed from 4.0 microseconds 
to 0.10 microseconds by varying the 
number loaded into T1. 


Refer again to Table VI for a choice of 
frequencies for the free-running mode of 
the T1 timer that might be appropriate 
for a given application. Since the T2 
timer is capable of counting to 65536, 
the maximum time Interval that can be 
measured with a square wave whose 
period is Tp is: 


Tmax = 85536(Tp) 
= B5536(2)(N + 2)T, 
where Tay is the maximum time inter- 


val that can be measured, T,, Is the 
period of the square wave (T,, = 1/f) on 
P87, N Is the number loaded ihto T1, and 
T, is the system clock period. 


Refer agaln to Figure 4. When the se- 
cond pulse occurs, the Q output of the 
7474 flip-flop makes a transition to logic 
one. This also signals the conclusion of 
the timing interval. If Q Is connected to 
CB1, the 6522 can be programmed to set 
a flag in the IFR when the togic-zero-to- 
logic-one transition on CB1 occurs. At 
this time the T2 counter/timer can be 
read, the result converted to decimal, 


APPENDIX A. LOW—OVERHEAD CLOCK MODIFICATION 


SUBROUTINE AIMDSP 


$0340 A5 LDA O1 
$0342 &5 STA O4 
$034, 45 LDA 2 
$0346 85 STA 05 
$0348 45 LDA 03 
SOBLA 85 STA 06 
$0340 A2 LDX #13 
SO3LE 8A TXA 
SO34F 48 PHA 
$0350 AO LDY #, 
$0352 A5 LDA Q, 
$0354 29 AND #OF 
$0356 18 CLO 
$0357 69 ADC #30 
$0359 09 ORA #80 
$035B 20 JSR EF7B 
$035E 46 LSR 06 
$0360 66 ROR 05 
$0362 66 ROR O4 
$0364 88 DEY 
$0365 DO BNE 0355 
$0367 68 PLA 
$0368 AA TAX 
$0369 CA DEX 
$036A EO CPX #05 
$036C BO BCS O34E 
$036E 60 RTS 


and the answer can be displayed or logg- 
ed for the next set of pulses. All of this is 
accomplished with the routines given in 
Table X, a program that was designed to 
operate in conjunction with the circuit of 
Figure 4. An explanation of this program 
follows. 


The largest number of pulses from 
PB7 that can be counted on pin PB6 by 
the T2 counter/timer is $FFFF + 1 or 
65536. Each memory location is capable 
of storing two BCD digits, thus three 
memory tocations are required to store a 
number as large as 65536. These three 
memory locations have addresses $0001 
through $0003 In the program shown in 
Table X, and they are used to store the 
decimal! equivaient of the count made by 
the T2 counter/timer. The initialization 
steps, display registers cleared, flip-flop 
preset, timers loaded, control registers 
set, etc., require the first $34 bytes in the 
program. After that, the interrupt flag 
register (IFR) Ils watched to see when a 
positive transition on CB1 occurs. When 
it does, a Jump to the conversion 
subroutine, CNVD, occurs. 


The function of the conversion 
subroutine is to convert the contents of 
the T2 counter/timer registers to an ac- 
tual count In decimal. This count 
represents the number of periods of the 
square wave on PB7 that have occurred 
between the events being timed. The 
program in Tabie X uses a square wave 
whose period Is 0.01 seconds, thus the 


INTERRUPT 


0200 78 SEI 

201 AG LDA #A0 

0203 8D STA AOOE 
0206 A9 LDA #E0 

0208 &D STA AQOB 
208 AQ LDA #,D 

20D eD STA A006 
0210 A9 LDA #03 

0212 aD STA A005 
0215 A9 LDA #57 

0217 8D STA A008 
O21A A9 LDA #02 

C21C @D STA A009 
O21F 58 CLI 

0220 4C JMP 0220 


0300 A9 LDA #02 
0302 sD STA A009 
0305 18 CIC 

0306 FS SED 

0307 A5 LDA 00 
0309 69 ADC #01 
030B 85 STA 00 
0O30D C9 CMP #60 
OB0F DO BNE 0324 
0311 AS LDA #00 
0313 85 STA 00 
0315 18 CLC 

0316 A5 LDA OL 
0318 69 ADC #01 
031A 85 STA OL 
O31C C9 CMP #21, 
031B DO BNE 0321, 
0320 A9 LDA #00 
0322 85 STA O1 
0321, DS CLD 

0325 40 RTI 


number of counts in T2 represents the 
number of hundredths of seconds that 
occurred between the two positive 
pulses on the clock Input of the 7474 flip- 
flop. 


The time between the leading edges 
of the positive pulses produced by the 
events (call this time T) as measured by 
the program in Table X is given by the 
formula: 


Tm = Tp(SFFFF - No) 
= 2(N, + 2X$FFFF - Not, 


where T,, Is the period of the square 
wave on Bez, No is the number In the T2 
counter/timer at the conclusion of the 
timing interval, and N, Is the number in 
the T1 timer. Refer to Table Vi for the 
necessary N, to produce a sultable T,. 
Values of T,, that are multiples of ten afe 
most useful. The origin of the number 
SFFFF In the equation lies in the fact 
that the T2 counter/timer is loaded with 
$FFFF before timing begins. For the 
listing shown in Table X, T,, is 0.01 
seconds, so the equation becdmes: 


Tm = 0.01($FFFF - No) seconds 


The precision with which one can 
measure the true time T between the 
events depends on the resolution, T,, 
since clearly the true time need not de 
an exact Integral number of T,. Our 
analysis shows that the actual tinie, T, is 
given by the expression: 

Tmy- 1%T p< T< Tp + "Tp 
Thus, If greater precision is required, 
then Tp can be reduced. 


The conversion subroutine, CNVD, 
performs the operation ($FFFF - No) 
shown in the equations. To get T, this 
number must be converted to decimal 
and then multiplied by T, which, in our 
case, is 0.01 seconds. Tile hexadecimal 
to decimal conversion algorithm used In 
CNVD is from Peatman’s book Micro- 
computer Based Design, while the 
coding used Is from Butterfield’s “Multi- 
Mode Adder” in 6502 User Notes, No. 13, 
pg. 23. 


Subroutine CNVD also calls a 
subroutine named AIMDSP. This routine 
displays the contents of locations with 
addresses $0001, $0002, and $0003; 
namely those locations that contain the 
time T, now in decimal. No attempt has 
been made to locate the decimal point in 
these subroutines. As long as the 
period, T,, if the square wave on PB7 isa 
multiple Bt ten, 0.01 second for example, 
the user should have no troubie placing 
his decimal point mentaily. 


In any case, subroutine AIMDSP is an 
AlM 65 dependent eubroutine that has 
been published previously, so only its 
AIM 65 mini-disassembly format Is given 
here. Owners of other microcomputer 
systems will want to substitute a 
suitable routine to display the contents 


PUT ON 
THE 7474. FLIP-FLOP 


Figure 5. Stopwatch interface for the Circuit in Figure 4. The switch 
is normally closed (N.C.). To produce a pulse when an event occurs, 
the normally open (N.O.) contact is closed momentarily. 


of the three locations mentioned. Such 
routines for the KIM-1 and SYM-1. are 
readily avaliable. 


The time interval chosen for the listing 
in Table X is suitable for “stopwatch” 
functions, and a suitable stopwatch in- 
terface to the circuit of Figure 4 is given 
in Figure 5. This circuit simply de- 
bounces the switch when it is momen- 
tarily closed at the beginning and ithe 


C200 49 LDA #01 
ozc2 €D STA acd 
0205 aD STA A000 
0208 CE DEC A000 
C20B A9 LDA #50 
C20) &D STA AOOB 
0210 AQ LDA #4,D 
0212 8D STA A006 
C2L5 A9 LDA #03 
(217 @D STA A005 
C21A AG LDA #9F 
c21C €D STA A00S 
C21F AQ LDA #6 
0221 @D STA A009 
0224 AQ LDA #A0 
0226 8D STA AOCE 
G229 5é CLI 


Start counting. 


(Note: 


Start Tl running. 


end of the interval to be timed. 
Phototransistor circults can also be us- 
ed to produce positive puises when light 
beams are interrupted. A photo- 
plethysmograph can be used to measure 
the time interval between heartbeats, 
turning the circuit of Figure 4 Into a 
cardiotachometer. 


One way to test the circuit of Figure 4 
and the program in Table X is to apply a 


Set up the Port B DDR with a one in bit sero. 
Start with pin PBZ = 1 to preset 74,90. 


Allow 74.90 to count. 
Initialize ACR to put T1 in free-running mode, T2 comts 


Frequency of square wave on PB7 = 10 Hz, ™ « 0.1 second. 


T= 20(H, + 2)(N, + 1)T, 


Set up interrupt enable register (IER) to allow an 
interrupt request (IRQ) when T2 times out. 


The interrupt routine should reload T2CH with $8 to clear the IFR 


and allow counting to proceed again, if equally spaced, 10-hour 


interrupts are desired. ) 


square wave of known frequency to the 
clock input on the 7474, For example, if 
the pulses from the signal conditioner 
shown in Figure 3 are applied to the 
7474, then the time interval should be 
1/60 of a second. Since 1/60 = 0.01666, 
and if T, = 0.0001 second (N, = $0030 
from Table Vi), then the number 1666 
should be displayed for the time bet- 
ween successive positive pulses. Be 
sure to change the bytes at $0221 and 
$0226 to $30 and $00, respectively, in 
Table X if you make this test. 


Finally, if an event can be made to pro- 
duce a single positive pulse for Its dura- 
tion, the length of the event may be 
measured using a slightly modified form 
of the program in Table X and the-circult 
shown in Figure 6. 


In conclusion | shouid like to point out 
that the programs and circuits given are 
the simplest ones | could construct. You 
will want to add more elegant features. 
The purpose of this article was to In- 
troduce a few basic techniques, not to 
present elaborate designs. If you come 
up with a neat design as a result of 
something you learned here, | would be 
very interested in getting a letter from 
you. Better yet, write up your circuit and 
program and publish both In MICRO. 
Although the circuits and programs 
described here were intended to be 
buliding blocks for more elaborate 
microprocessor based designs, the stop- 
watch Interface and timing program 
could be used for “time and motion” 
studies around the house. Just make 
sure your spouse’s motions do not make 
you jose track of the time! 


Editor: Portions of this articie are from 
Dr. De Jong's forthcoming book ten- 
tatively entitled 6502 Microcomputing, 
to be published by Howard W. Sams and 
Company, and soheduted for release 
later this autumn. 


Program Checksum Calculator 


Whenever you key in a program in machine code, there Is 
some doubt as to whether or not It has been entered cor- 
rectly. One minor error is all it takes to ruin a program. A 
technique and program is presented to help overcome 
this problem on any 6502 computer. 


| decided to write this program for 
selfish reasons. My hope is that 
everybody who transfers or writes pro- 
grams for distribution will use It. The pur- 
pose of the program is to compute a six- 
teen bit checksum by adding up alt the 
bytes in a program. This really isn’t a 
totally new idea. Most methods of 
transferring programs or data external to 
a CPU use some sort of checksum 
routine. Even parity is really a one bit 
checksum. There is one major method of 
program transfer which makes almost no 
use of checksums. That method is 
listings published in magazines. One of 
the reasons is probably that noone has 
published a simple, general program to 
compute a checksum. 


This program was written and tested 
on a SYM-1, but was designed to be as 
machine independent as possible. It 
should run on almost any 6802 system. 
There are only two monitor routines used, 
both of which are probably available in 
most monitors. The routine called OUT- 
BYT outputs the contents of the ‘A’ 
register as two HEX digits. Just In case 
this routine Isn’t readily available on your 
system, | have also included a version of 
one at the end of the program. OUTCHA 
is a routine that outputs the contents of 
‘A’ as a character; and unless your are us- 
ing the HEX output routine, it is only used 
to output'a space as a separator. The pro- 


gram does not assume that any registers 
are saved or restored by elther monitor 
routine. It is completely relocatable (as is 
HEXOUT), and only uses four bytes of 
page zero memory. If you want to, you 
could even put It Into an EPROM. The 
work area for the two byte checksum ac- 
cumulator is obtained from the stack to 
avoid any more page zero requirements. 


The theory and method of operation 
is simple. The starting address of the pro- 
gram to be summed is placed at locations 
$00 and $01 (low order first as usual). The 
ending address is placed at locations $02 
and $03, and the program is started. The 
program will output an intermediate 
checksum after the end of each page of 
the summed program (i.e., each time the 
high order byte of the current address 
changes). This intermediate value would 
be useful in narrowing down the address 
of where a mistake lies. For a long pro- 
gram there might be a few of these in- 
termediate sums; but then, that is also 
when they would be most helpful. 
Remember they still only narrow it down 
to 256 bytes (or fess for the first and fast 
values). 


The program starts by zeroing the 
checksum accumulator by pushing two 
zero bytes onto the stack. The stack 
register then points to the next available 
stack location, which is actually $100 
plus the stack register value in absolute 
address terms. The checksum ac- 
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cumulator is therefore at locations $101 
and $102 pius the stack register value, 
since the stack register starts at S1FF 
and works toward $100 each time a value 
is pushed onto the stack. Transferring the 
stack register to the ‘X’ register lets us 
add directly to these two bytes. It wouid 
be possibile to accomplish the same thing 
with Pulls and Pushes, but wouldn’t have 
been as interesting. For the output of the 
last checksum value, the values are Pull- 
ed from the stack to keep the stack 
register the same before as after. 


In addition to the aforementioned 
selfish motives, | have found the program 
to have other more mundane uses around 
the computer room. If you suspect a pro- 
gram is modifying itself (possibly by acci- 
dent), compute the checksum before and 
after execution. If the checksums are the 
same, you can be reasonably confident 
that the program hasn't changed. | say 
reasonably confident because a simple 
checksum is not total proof that a pro- 
gram didn’t change. If | add to one loca- 
tion and subtract the same amount from 
another, the checksum will still come out 
the same. It is orders of magnitude more 
accurate than guessing or eyeballing a 
memory dump though. 


By the way, the checksum for this 
program ($04 to $48) is $1AAA! For the 
HEXOUT subroutine it is $0O8F8. 


0032 A5 
0034 C5 
0036 DO 
0038 A5 
003A C5 
003C 90 
Q03E FO 


0040 68 
0041 20 
0044 68 
0045 20 
0048 00 


MICRO-WARE 


0200 

0200 48 
0201 4A 
0202 4A 
0203 4A 
0204 4A 
0205 C9 
0207 90 
0209 69 
020B 69 
020D 20 
0210 68 
0211 29 
0213 C9 
0215 90 
0217 69 
0219 69 
021B 4C 


02 01 
02 O01 


04 
00 
02 
CA 
cs 


FA 82 
FA 82 


OA 
02 
06 
30 
47 8A 


OF 
OA 
02 
06 
30 
47 8A 


SYM MONITOR ENTRY POINTS USED 


OUTBYT * 
OUICHR * 


ORG 


STRTAD 


ENDAD = 
2 


PGMSUM LDAIM 


ADDIN 


NOCARY 


- CHKEND LDA 


CHENDA BCC 


$82FA 
S8A47 


$0000 


$00 
$00 
$00 
$00 


$00 


$00 


STRTAD 
$0102 
$0102 
NOCARY 
$0101 


STRTAD 
CHKEND 
STRTAD 
$0102 


$0101 
OUTBYT 


OUTBYT 
$20 
OUTCHR 


STRTAD 
ENDAD 
CHKNDA 
STRTAD 
ENDAD 
ADDIN 
ADDIN 


OUTBYT 


OUTBYT 


OUTPUT °A°® AS 2 HEX DIGITS 
OUTPUT °A® AS ASCII 


PROGRAM STARTING ADDRESS LOW 
PROGRAM STARTING ADDRESS HIGH 
PROGRAM ENDING ADDRESS LOW 
PROGRAM ENDING ADDRESS HIGH 


ZERO CHECKSUM ON THE STACK 


MOVE STACK POINTER TO INDEX 
MAKE SURE Y REG I8 ZERO 


GET A PROGRAM BYTE 
ADD TO CHECKSUM 


ADVANCE TO NEXT PROGRAM BYTE 

GO CHECK FOR END OF PROGRAM 

+01 OTHERWISE BUMP TO NEXT PAGE 
OUTPUT INTERMEDIATE CHECKSUM ALSO 
SAVE LOW ORDER ON STACK 

TO AVOID SAVING 

OUTPUT HIGH ORDER PART 


THEN LOW ORDER 
SPACE 
AND A SPACE AS SEPARATOR 


+01 CHECK IF TO END OF PROGRAM 
+01 


LESS MEANS MORE TO GO 


ELSE GET HIGH ORDER OF CHECKSUM 
ENO NEED TO PRESERVE THINGS 


CAUSE WE ARE DONE 


ASSEMBLER 65XX-1.0 PAGE 01 


HEXOUT ORG 
PHA 
LSRA 
LSRA 
USRA 
LSRA 


$0200 


CMPIM $0A 


BCC 


HEXOTA 


ADCIM $06 


HEXOTA 


ADCIM $30 
JSR 
PLA 


OUTCHR 


ANDIM $0F 
CMPIM $0A 


BCC 


HEXOTB 


ADCIM $06 
HEXOTB ADCIM $30 


JMP 


OUTCHR 


RELOCATABLE 
SAVE EXTRA COPY FOR SECOND HALF 
SHIFT HIGH 4 BITS TO LOW ORDER 


CHECK IF >9 
WILL SET CARRY IF >= 
PLUS 7 WILL OFFSET TO GET ASCII °A* 


NOW OUTPUT THE FIRST HEX CHARACTER 
GET ORIGINAL BACK 

ONLY WANT 4 LOW ORDER BITS NOW 
SAME CONVERT TO ASCII 


LET THIS GUY DO THE RETURN 
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